5- расм. Форма намунаси.
9. Тузилган дастурни ишга туширинг. Бунинг учун Run менюсидаги Run пунктини танланг (ёки F9 тугмаси). Киритиш каторига (TEdit компонентига) сўзларни киритиб OK тугмасини босиб кўринг. Дастур ойнасини беркитинг. Проектни сакланг (6-пунктга каранг) ва проектни ўкитувчига кўрсатинг.
10. Дастурга функсиялиликни кўшамиз. Бунинг учун формадаги OK тугмасини танланг ва сичкончанинг чап тугмачасини икки марта тез босинг. Натижада Delphi матнини тахрирлаш ойнасида TForm1.Botton1Click процедураси хосил бўлади (бу процедура OK тугмаси босилганда кандай амал бажарилишини билдиради). begin …end операторлари орасига куйидаги матнни (кодни) ёзинг (6-расм).
Application.MessageBox (‘Cалом’, ‘Xабар’, МВ_OK);
6 - расм. TForm1.Botton1Click процедураси.
11. Проектни сакланг ва ишга туширинг (9 – пунктга каранг) OK тугмасини босинг ва натижага эътибор беринг.
12. Хабар ойнаси сарлавхасини Сўров сўзига ва Хабар ойнасидаги сўзни Гуруҳ номерингиз ва фамилиянгиз сўзига алмаштиринг.
13. Проектни сакланг ва ишга туширинг. Натижани ўкитувчига кўрсатинг.
14. Unit1 модули тахрирлаш ойнасига ўтинг. Бунинг учун View менюсидаги WindowList… пунктини танланг. Хосил бўлган ойнадан Unit1.pas рўйхатини танланг.
15. MessageBox сўзини белгиланг (6-расм) ва F1 тугмасини босиш оркали ушбу функция учун маълумотномани хосил килинг. Хосил бўлган ойнадан MessageBox method (TApplication) (VCL Reference) пунктини танланг ва «Показать» тугмасини босинг (7-расм).
7- расм. Маълумотнома бўлимларини танлаш
16. Маълумотнома ойнасида куйидаги функция хосил бўлади:
Function Message Box (const Text ,Caption:Pchar: Flags: Longint): Integer
функциянинг (IDOK….IDNO) кийматларига эътибор беринг. IDYES ва IDNO кийматлар ойнадаги ДА ёки НЕТ тугмачаларини босиш оркали бажариладиган амални билдиради. Маълумотнома ойнасини ёпинг.
Do'stlaringiz bilan baham: |
