«Бағдарламалау тілдері» пәнінен оқу тәжірибесі бойынша



бет49/62
Дата08.02.2022
өлшемі2,7 Mb.
#117933
1   ...   45   46   47   48   49   50   51   52   ...   62
Байланысты:
с

void __fastcall TForm2::N2Click(TObject *Sender) // Файл ->
Ашу пунктінің коды
{
if (OpenDialog1->Execute())
{ Edit1->Text=OpenDialog1->FileName;
MediaPlayer1->FileName=OpenDialog1->FileName;
MediaPlayer1->Open();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::N4Click(TObject *Sender)
{
Form3->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::N5Click(TObject *Sender)
{
Form1->Show();
}
//----------------------------------------------------------------------------

3. «Суреттер» /Form3/терезедегі компоненттер қасиеттерінің және оқиғаларының мәндері:



«Суреттер» терезесінің unit3 мәтіні:
#include
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------


Достарыңызбен бөлісу:
1   ...   45   46   47   48   49   50   51   52   ...   62




©engime.org 2024
әкімшілігінің қараңыз

    Басты бет