Программалау технологиясы
жүктеу/скачать 2,48 Mb. Pdf көрінісі
|
Мукашев С Builder
| __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/ терезедегі компоненттер қасиеттерінің және оқиғаларының мәндері: Компоненттің аты Қасиеттерінің мәндері, оқиғалары Form4 Caption = 'Анықтама' BorderIcons = [biSystemMenu] biSystemMenu =true biMinimize=false biMaximize=false biHelp=false Label1 Caption = 'Программа мәзірлермен (MainMenu жане PopupMenu компоненттери ) жумыс жасауды корсететин демонстрациялык програма болып табылады. Программада музыкалык файлдарды тындау ушин MediaPlayer, Image, OpenDialog, OpenPictureDialog компоненттери пайдаланылды.' WordWrap = True PopupMenu1 Caption = 'Бул контекстик мәзір -PopupMenu' Button1 Caption = 'КЕЙIН' PopupMenu = PopupMenu1 OnClick = Button1Click «Анықтама» терезесінің unit4 мәтіні: #include #pragma hdrstop #include "Unit1.h" #include "Unit4.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm4 *Form4; //--------------------------------------------------------------------------- |