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



бет50/63
Дата06.01.2022
өлшемі2,75 Mb.
#14335
1   ...   46   47   48   49   50   51   52   53   ...   63
Байланысты:
000ee066-e66f71bc

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   ...   46   47   48   49   50   51   52   53   ...   63




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

    Басты бет