«Бағдарламалау тілдері» пәнінен оқу тәжірибесі бойынша
жүктеу/скачать 2,7 Mb.
|
«Бағдарламалау тілдері» пәнінен тәжірибелік жұмыстар жинағы
- Бұл бет үшін навигация:
- __fastcall TForm3
| 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; //--------------------------------------------------------------------------- __fastcall TForm3::TForm3(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm3::N4Click(TObject *Sender) { Form2->Show(); } //--------------------------------------------------------------------------- void __fastcall TForm3::N5Click(TObject *Sender) { Form1->Close(); } //--------------------------------------------------------------------------- void __fastcall TForm3::N2Click(TObject *Sender) { if (OpenPictureDialog1->Execute()) Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName); } 4. «Аныктама» / Form4/ терезедегі компоненттер қасиеттерінің және оқиғаларының мәндері: «Анықтама» терезесінің unit4 мәтіні: #include #pragma hdrstop #include "Unit1.h" #include "Unit4.h" #pragma package(smart_init) #pragma resource "*.dfm" TForm4 *Form4; //--------------------------------------------------------------------------- жүктеу/скачать 2,7 Mb. Достарыңызбен бөлісу:
|