10-sinf informatika 16. pdf

Oyna o'lchamlari ilovasi. Oldingi darsdagi ilovani qaytadan yaratamiz. Ilova oynasi o'lchamlarini kattalashtirish va kichiklashtirish uchun ikkita Buttondan, oyna o'lchamlarini ko'rsatish ikkita Label dan foydalanamiz.

Dastlab ilova oynasining xossalarini o'matamiz: Forml.Caption:='To''rtinchi ilova'; Forml.Height:=225; Forml.Width:=400; Forml.Left:=200; Forml.Top:=100;
Yuqoridagi to'rtta obyektni ilova oynasiga joylaymiz va ulaming
xossalarini o'matamiz: Buttonl.Caption:='++'; Button2.Caption:='--';
Labell.Caption:='Oynaning bo''yi: '; Label2.Caption:='Oynaning eni: ';
96

Ilova oynasida Buttonl ni ikk:i marta bosib, ekranda paydo bo'lgan dastur kodi oynasining kursor turgan joyiga quyidagi operatorlami kiritamiz:

Forml.Width:=Forml.Width+16; Forml.Height:=Forml.Height+9; Labell.Caption:='Oynaning_bo''yi:'+IntToStr(Forml.Height); Label2.Caption:='Oynaning_eni:'+IntToStr(Forml.Width);
Ilova oynasida Buttonl ni ikk:i marta bosib, ekranda paydo bo'lgan dastur kodi oynasining kursor turgan joyiga quyidagi operatorlami kiritamiz:
Forml.Width:=Forml.Width+16; Forml.Height:=Forml.Height+9; Labell.Caption:='Oynaning_bo''yi:'+IntToStr(Forml.Height); Label2.Caption:='Oynaning_eni:'+IntToStr(Forml.Width);

Ilovani ishga tushiramiz va uning ishlashini kuzatamiz: