Taxiatosh tumani kasb-hunar maktabi "tasdiqlayman"

Form1.Caption:=’Uchinchi ilova’+ Form1.Caption;
Button1 tugmasini ikki marta bosib, dastur kodi oynasini chaqiramiz va oxirgi ikki satrni unga qo‘shib qo‘yamiz:
If Form1.Width<600 then begin
Form1.Width:=Form1.Width+16;
Form1.Height:=Form1.Height+9; End else
ShowMessage(‘Oyna boshqa kengaymaydi’);
Form1.Caption:=’(‘+IntToStr(Form1.Height)+’*’+IntToStr(Form1.Width)+’)’;
Form1.Caption:=’Uchinchi ilova ’+ Form1.Caption;
Ilovani ishga tushirib, uning sarlavhasi o‘zgarishini kuzatamiz:



(2.5-ilova)
Yangi o’quv materialining slaydli taqdimoti (alohida ilova qilinadi).
Yangi o’quv materialini mustahkamlash
(2.6-ilova)
Mustahkamlash uchun savollar
1. Ikkinchi ilovaning kamchiligi nimada?
2. ShowMessage ning vazifasi nimada?
3. IntToStr funksiyasi nima vazifani bajaradi?
4. Uchinchi ilovani shunday o‘zgartiring-ki, u a) ilova oynasining eni
800 dan, b) ilova oynasi bo‘yi 450 dan oshsa ekranga ogohlantiruvchi
yozuvni chiqarsin.