Бир ва бир нечта форма билан ишлаш мулоқот ойналари ва уларнинг турлари

Загружено в:

20.09.2019

Скачано:

0

Размер:

73 KB

Скачать

Бир ва бир нечта форма билан ишлаш м улоқот ойналари ва уларнинг турлари Режа: 1. Бир ва бир нечта форма билан ишлаш 2. Мулоқот ойналари ва уларнинг турлари 3. Мулоқот ойналари ёрдамида дастурлар тузиш

Бир ва бир нечта форма билан ишлаш Ихтиёрий илованинг асосий элементи форма (контейнер) ҳисобланади. Формага бошқа кўринадиган ва кўринмайдиган компоненталарни жойлаштириш мумкин. Форма, фойдаланувчи нуқтаи назаридан, у илова билан ишлаётган дарчадир. Иловага киритилган хар бир янги форма ўзининг модули (init) га эга. Модулда формада бажариши керак бўлган функция, процедуралар келтирилади.Одатда мураккаб иловалар бир нечта формадан иборат бўлади. Янги илова (программа) тузиш учун File менюсидан NewApplication командаси танланади. Одатда биринчи форма асосий форма ҳисобланади. Иловага янги форма қўшиш учун File менюсидан NewForm танланади. Бир формадан бошқасига ўтиш учун ShowваShowModal методларидан фойдаланиш мумкин. ShowModal методи жорий формани ёпгандан кейин бошқа формалар билан ишлашга рухсат беради. Бу метод оператив хотиралан унумли фойдаланиш учун ишлатилади.ShowваShowModal методларини айни вақтда кўринмайдиган формалар учун ишлатиш мумкин. Агар формани актив ёки пассивлиги номаълум бўлса, у ҳолдақуйида келтирилган дастур коди ёзилади. 1: If (! Form2->Visible) Form2->ShowModal; Show ва ShowModal методлари бажарилганда форманинг OnShow ходисаси содир бўлади. Hide методи орқали формани кўринмайдиган қилиш мумкин. Формани Close методи орқали ёпиш мумкин. Бир нечта форма билан ишлаганда бир формадан бошқасига ўтиш учун Shift+F12 тугмаси босилади. Форманинг баъзи ҳусусиятларини кўриб чиқамиз. BorderIcons ҳусусиятига тегишли бўлган катталиклар қуйидагилардан иборат: – biSystemMenu – Формада система тугмаларининг кўриниш ёки кўринмаслигини таъминлайди; –biMinimize – Формадаги система тугмаларидан «свернуть» тугмасини актив ёки пассивлигини таъминлайди;

$– biMaximize – Формадаги система тугмаларидан «развернуть» тугмасини актив ёки пассивлигини таъминлайди; – biHelp– Формадаги «ёрдам» тугмасини актив ёки пассивлигини таъминлайди. Форманинг WindowState ҳусусиятига тегишли бўлган катталиклар: – wsMaximized – форма фаоллашаётганда тўлиқ экран ҳолатида очилишни таъминлайди; – wsMinimized – форма фаоллашаётганда йиғилган («свернуть») ҳолатида очилишни таъминлайди; – wsNormal – форма фаоллашаётганда одатий, яъни яратилгандаги ўлчамда очилишини таъминлайди. Форманинг баъзи ходисаларини кўриб чиқамиз: – OnActivate – ходисаси форма фаоллашган вақтда юз беради; – OnClose – ходисаси форма ёпилаётганда юз беради; – OnCreate – ходисаси форма яратилганда юз беради; – OnResize – ходиса форманинг ўлчамлари ўзгарганда (катталашганда ёки кичиклашганда) юз беради; – OnCloseQuery – форма ёпилишидан олдин савол билан мурожаат қилиш учун ишлатилади. Мисол: Форма ёпилиши олдидан фойдаланувчига “Формани ёпишни хоҳлайсизми?” деб мурожаат этиш ва Yes тугмаси босилганда, формани ёпиш дастурини кўриб чиқамиз. Ечилиши: Форманинг OnCloseQuery ходисасига листинг 3.1.1 даги дастурни ёзамиз. 1: void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose) 2: { 3: if(MessageDlg("Chiqishni xohlaysizmi?",mtConfirmation,TMsgDlgButtons() << mbYes << mbNo, 0) == mrYes)$

4: CanClose = true; 5: else 6: CanClose = false; 7: } Мулоқот ойналари ва уларнинг турлари Дастур яратиш давомида турли хилдаги мулоқот ойналари билан ишлашга тўғри келади. Бу ойналарни турли хилдаги номлар билан аташ мумкин. Бу ойналар қуйидагилар: – Тасдиқлаш ойнаси; – Хатолик ойнаси; – Огоҳлангитиш ойнаси; – Ахборот ойнаси; – Фойдаланувчи ойнаси. Юқорида келтирилган мулоқот ойналарининг барчасини бир–биридан фарқи, ойналарнинг иконкасидадир. Мулоқот ойналарини ишга тушириш учун дастурлаш тилининг стандарт функцияларидан бири бўлган MessageDlg дан фойдаламиз. Функциянинг параметрлари билан танишамиз: MessageDlg( string str, TMsgDlgType mdt, TMsgDlgButtons btn, int help); Биринчи параметр сатрли типда бўлиб, бу параметрнинг ўрнида келган ўзгарувчи ёки ўзгармас катталикнинг қиймати изоҳ сифатида экранда гавдаланади. Иккинчи параметр мулоқот ойнасининг типи бўлиб, бу параметр қуйида келтирилган ўзгармасдан бирини қабул қилади: – mtConfirmation (Тасдиқлаш ойнаси); – mtInformation (Ахборот ойнаси); – mtWarning (Огоҳлантириш ойнаси); – mtError (Хатолик ойнаси); – mtCustom (Фойдаланувчи ойнаси). Учинчи параметр, бу мулоқот ойнасининг тугмаларидир. Бу тугмалар қуйидагилардир:

mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore,mbAll, mbNoToAll, mbYesToAll, mbHelp, mbClose Windows операцион тизимида фойдаланиладиган файлларни сақлаш, файлларни очиш, маълумотларни чоп этиш мулоқот ойналари компоненталар палитрасининг алоҳида палитрасида тайёр компонента ҳолатида берилган. Бу палитра Dialogs номи билан номлангандир. Бу палитрадаги компоненталар дастур ишга тушганда формада кўринмайди. Бу палитрадаги баъзи бир компонентани кўриб чиқамиз: – TOpenDialog – бу компонента очиш мулоқот ойнасини ишга туширади ва бу ойна билан ишлаш имконини яратади; – TSaveDialog – бу компонента сақлаш мулоқот ойнасини ишга туширади ва бу ойна билан ишлаш имконини яратади; – TFontDialog – бу компонента шрифт мулоқот ойнасини ишга туширади ва бу ойна билан ишлаш имконини яратади; – TColorDialog – бу компонента ранглар мулоқот ойнасини ишга туширади ва бу ойна билан ишлаш имконини яратади; – TPrintDialog – бу компонента чоп этиш мулоқот ойнасини ишга туширади ва бу ойна билан ишлаш имконини яратади; – TFindDialog – бу компонента қидириш мулоқот ойнасини ишга туширади ва бу ойна билан ишлаш имконини яратади; – TReplaceDialog – бу компонента ўрнига қўйиш мулоқот ойнасини ишга туширади ва бу ойна билан ишлаш имконини яратади. Юқорида келтирилган компоненталарни чақириш учун, компонентанинг Execute методини ишга туширилади. Мулоқот ойналари ёрдамида дастурлар тузиш Dialog компоненталар палитраси ёрдамида Windows операцион тизимининг стандарт дастурларидан бири бўлган Блокнот дастурининг кичик кўринишини яратамиз. Бу дастурни тузиш учун бизга керакли бўлган компоненталар рўйхатининг кўриб чиқамиз: Бош менюни яратиш учун – TMainMenu;

$Маълумотларни киритиш ва таҳрирлаш майдони учун – TMemo; Киритилган маълумотларни сақлаш учун – TSaveDialog; Олдин яратилган файлларни очиш учун – TOpenDialog; Киритилган маълумотларни шрифтини ва унинг ўлчамини ўзгартириш учун – TFontDialog; Ойнадаги маълумотларни чоп этиш учун – TPrintDialog. Юқорида келтирилган компоненталарни формага 3.3.1 – расмда кўрсатилгандай жойлаштирамиз. 3.3.1 – расм: Формага керакли компоненталарни жойлаштириш. Бош менюдаги менюларни яратиш учун сичқончанинг чапги тугмасини MainMenu1 компонентасининг устида икки марта босилади. Шундан сўнг ойна ҳосил бўлади, бу ойнада асосий менюнинг бандларини шакллантирилади. 3.3.2 – расмда бу бандларнинг кўриниши келтирилган. 3.3.2 – расм: Файл ва Таҳрирлаш менюларининг бандлари. Блокнот дастурининг кодини ёзишда 3.3.2–расмдаги менюнинг бандларига асосланган ҳолда яратилади. Бу бандларни чертилганида ёки босилганида ходисаларига қуйидаги листингларда келтирилган кодларни ёзишимиз. Листинг 3.3.1: Формат менюсидаги Сўзларни бўлиш бандининг коди. 1: void __ fastcall TForm1::Sozlarnibolish1Click(TObject *Sender) 2: {$ $3: Memo1->WordWrap = !Memo1->WordWrap; 4: Sozlarnibolish1 -> Checked = Memo1->WordWrap; 5: if (Memo1->WordWrap) Memo1->ScrollBars = ssVertical; 6: else Memo1->ScrollBars = ssBoth; 7: } Листинг 3.3.2: Формат менюсидаги Шрифт бандининг коди. 1: void __ fastcall TForm1::Shrifti1Click(TObject *Sender) 2: { 3: if (FontDialog1->Execute()) Memo1->Font = FontDialog1->Font; 4: } Листинг 3.3.3: Тахрирлаш менюмининг бандлари. 1: void __fastcall TForm1::Bekorqilish1Click(TObject *Sender) 2: { 3: // Bekor qilish 4: Memo1->Undo(); 5: } 6: 7: void __fastcall TForm1::Qirqibolish1Click(TObject *Sender) 8: { 9: //Qirqib olish 10: Memo1->CutToClipboard(); 11: } 12: 13: void __fastcall TForm1::Nusxasiniolish1Click(TObject *Sender) 14: { 15: //Nusxasini olish 16: Memo1->CopyToClipboard(); 17: } 18: 19: void __fastcall TForm1::Joylashtirish1Click(TObject *Sender)$ $20: { 21: //Joylashtirish 22: Memo1->PasteFromClipboard(); 23: } 24: 25: void __fastcall TForm1::Hammasinibelgilash1Click(TObject *Sender) 26: { 27: // Hammasini belgilash 28: Memo1->SelectAll(); 29: }$

Бир ва бир нечта форма билан ишлаш мулоқот ойналари ва уларнинг турлари

20.09.2019

0

73 KB

Похожие