O‘zbekiston Respubllkasi Xalq ta'limi vazirligi tasdiqlagan

Oyna o‘lchamlari ilovasi. Oldingi mashg‘ulotda yaratamiz. Ilova oynasi o‘lchamlarini kattalashtirish va kichiklashtirish

uchun ikkita tugmadan, oyna o‘lchamlarini ko‘rsatish ikkita Label dan foydalanamiz.

Dastlab ilova oynasining xossalarini o‘rnatamiz (39-dars):

Form1.Caption:=’To‘’rtinchi ilova’;

Form1.Height:=225; Form1.Width:=400; Form1.Left:=200; Form1.Top:=100;
Yuqoridagi to‘rtta obyektni ilova oynasiga joylaymiz va ularning xossalarini o‘rnatamiz:
Button1.Caption:=’++’; Button2.Caption:=’--’; Label1.Caption:=’Oynaningo‘’yi:’; b Label2.Caption:=’Oynaning eni: ’;

96

Ilova oynasida Button1ni ikki marta bosib, ekranda paydo bo‘lgan dastur kodi oynasining kursor turgan joyiga quyidagi operatorlarni kiritamiz:

Form1.Width:=Form1.Width+16;

Form1.Height:=Form1.Height+9;

Label1.Caption:=’Oynaningo‘’yi:’+IntToStr(Form1b.Hei Label2.Caption:=’Oynaning_eni:’+IntToStr(

Ilova oynasida Button1 ni ikki marta bosib, ekranda paydo bo‘lgan dastur kodi oynasining kursor turgan joyiga quyidagi operatorlarni kiritamiz:

Form1.Width:=Form1.Width+16;

Form1.Height:=Form1.Height+9;

Label1.Caption:=’Oynaningo‘’yi:’+inttostr(Form1b.Hei Label2.Caption:=’Oynaning_eni:’+inttostr(.Width);

Ilovani ishga tushiramiz va uning ishlashini kuzatamiz:

YODDA SAQLANG !
Label obyekti ilova oynasiga matn satrini kiritish uchun ishlatiladi va bu matn uning Caption xossasida saqlanadi.