Тажриба иши. Borland Delphi дастурлаш тизимида ишлаш асослари. Ишдан максад: Borland Delphi

9- расм. Form1 формаси хусусиятларини ўзгартириш.
23. Кайси тугма босилганига караб Application.MessageBox усули турли кийматларни кабул килиши мумкин (16- пунктга каранг). Процедурадаги Application.MessageBox усулига куйидаги ўзгартиришни киритинг:
if Application.MessageBox(S1, 'Сўров', MB_YESNO)=IDYES
then
begin
close; {формани ёпиш}
FreeMem(S1); {хотирани бўшатиш}
end;
FreeMem(S1); {хотирани бўшатиш}
24. Проектни сакланг ва уни ишга туширинг. Натижани ўкитувчига кўрсатинг.
25. Форма ойнасига ўтинг ва «Чикиш» тугмасини босинг. Объектлар инспектори ойнасидаги Events (события) кисмини очинг. OnClick тўлдирилганлигига эътибор беринг. OnMouseDown ва OnMouseUp ходисаларини тахрирланг.
26. OnMouseDown ходисасининг ўнг томонидаги бўш каторда сичкончанинг чап тугмасини икки марта тез босинг (10-расм).

10 – расм. Ходисаларни кўйиш.
27. Матнни тахрирлаш ойнасида TFrom1.Button1MouseDown процедурасидаги begin ва end каторлари орасига куйидаги кодларни киритинг:
Edit1.Color:=clWhite;
28. OnMouseUp ходисасининг ўнг томонидаги бўш каторда сичкончанинг чап тугмасини икки мартта тез босинг (10- расм).
29. Киритиш каторининг рангини ўзгартириш учун матнни тахрирлаш ойнасида TForm1.Button1MouseUp процедурасига куйидаги кодларни киритинг:
Edit1.Color:=сlAqua;
Тахрирлаш 11-расмда келтирилган.

11-расм. Button1MouseDown ва Button1MouseUp процедураси матни.
30. Проектни сакланг ва уни ишга туширинг. Натижани ўкитувчига кўрсатинг.
31. Дастурни тузатиш асосларини ўрганинг. Бунинг учун матнни тахрирлаш ойнасидаги Form1.Button1Click матнини очинг ва StrCat(S1,S2) операторининг чап томонида сичкончанинг чап тугмасини бир марта босинг (12-расм). Сўнгра каторда кизил нукта хосил бўлишини кузатинг. Бу оператор дастур бажарилиши давомида тўхташ нуктаси хисобланади.