10-sinf informatika 16. pdf

Boshqarish tugmasiga

hodisalarni bog'lash. Buttonl tugmasi ilovada biron bir vazifani bajarishi kerak. Uni bosganimizda ilova o'z oynasining o'lchamlarini 16 va 9 ga kattalashtirsin.
Topshiriqni bajarish bu tugmani ikki marta bosishdan boshlanadi. Natijada ekranda dastur kodi oynasi paydo bo'ladi. Uning kursor turgan Joy1ga
Forml.Width:=Forml.Width+16; Forml.Height:=Forml.Height+9;
satrlami kiritamiz. F9 tugmasini bosib, ilovani ishga tushiramiz va uning to'g'ri ishlashini tekshirib ko'ramiz.

91

SAVOL VA TOPSHIRIQLAR

1. 
   Boshqarish tugmasi ilova oynasiga qanday o'tkaziladi?
   
2. 
   Boshqarish tugmasining xossalari qayerda o'zgartiriladi?
   
3. 
   Boshqarish tugmasi tanlanganda uning nima ish qilishi qayerda ko'rsatiladi?
   
4. 
   Delphi da yangi ilova yarating. Unga to'rtta boshqarish tugmasini kiriting. Ulardan birinchisini Yarat, ikkinchisini Yukla, uchinchisini Saqla, to'rtinchisini Tugat degan yozuv bilan ekranga chiqaring.
   

UYGA VAZIFA
1. Boshqarish tugmasining asosiy xossalarini yozib oling.

1. 
   Delphi da yangi ilova yarating va uni O1_03 papkaga saqlang.
   
   1. 
      Ilovaning sarlavhasini salom, olam! deb o'zgartiring.
      
   2. 
      Ilova oynasiga uchta boshqarish tugmasini bir ustun qilib joylang.
      
   3. 
      Birinchi tugmani ikki marta hosing. Ekranda paydo bo'lgan uning TForml .ButtonlClick protsedurasiga begin dan keyin TForml.Caption:=' salom, '+TForml.Caption; ni kiriting.
      
   4. 
      Ikkinchi tugmani ikki marta bosib, uning protsedurasini quyidagi
      

ko'rinishga keltiring:
procedure TForml.Button2Click(Sender: TObject); begin
TForml.Left:= TForml.Left+l0; end;

5. 
   Uchinchi tugmani ikki marta bosib, uning protsedurasini quyidagi ko'rinishga keltiring:
   

procedure TForml.Button3Click(Sender: TObject); begin
TForml.Top:= TForml.Top+l0; end;

6. 
   Ilovani ishga tushirib, tugmalar qanday vazifa bajarishini kuzating. Ilova oynasini yopib, uning barcha fayllarini saqlab qo'ying. Ilovaning barcha fayllarini yoping.
   
1. 
   Oldingi darsda berilgan mashqni kompyuterda bajaring.
   

92

1.