Arnasoy tuman kasb-hunar

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.