Birinchi tugrna bosilganda nirna qilish kerakligini ko'rsatish uchun uni
bet 63/107 Sana 29.01.2022 Hajmi 5,46 Mb. #417518
Bog'liq
informatika va axborot texnologiyalari 10-sinf
Birinchi tugrna bosilganda nirna qilish kerakligini ko'rsatish uchun uni ikki rnarta bosarniz va kursor turgan joyga quyidagi kodni kiritarniz:
If Forml.Width<600 then begin Forml.Width:=Forml.Width+16;
Forml.Height:=Forml.Height+9; End else begin
Button2.Visible:=True; Buttonl.Enabled:=False; end;
Ikkinchi tugrnani ikki rnarta bosib quyidagi dastur bo'lagini kiritarniz:
If Forml.Width>400 then begin Forml.Width:=Forml.Width-16;
Forml.Height:=Forml.Height-9; End else Button2.Visible:=False;
if Forml.Width<600 then Buttonl.Enabled:=True;
100
Visible xossasi qanday vazifa bajaradi?
Enabled xossasi qaysi obyektlarda uchraydi?
Beshinchi ilovani shunday o'zgartiring-ki, uning oynasi bo'yi va eni mos ravishda 5 va 8 qadam bilan o'zgarsin.
Beshinchi ilovani shunday o'zgartiring-ki, uning oynasi enining qiymati 500 dan 800 gacha bo'lsin.
Beshinchi ilova tugmalardagi yozuvlami a->A va A->a ga o'zgartiring.
UYGA VAZIFA
Visible xossasi qaysi obyektlarda uchraydi?
Enabled xossasi qanday vazifa bajaradi?
Delphida yangi ilova yarating va uni 04_01 papkaga saqlab qo'ying.
Ilova oynasiga uchta Label va uchta Button obyektini joylang.
Ulardan birinchilarining Enabled (faol) va Visible (ko'rinadigan) xossalarini o'zgartirmang. Ikkinchilarida Enabled (faol) xossalarini , uchinchilarida esa Visible (ko'rinadigan) xossalarini False (yolg'on) qilib o'mating.
Ilovani ishga tushirib , undagi o'zgarishlami kuzating.
Ilovani saqlang va uni yoping.
Yangi ilova yarating va uni 04 02 papkaga saqlang.
Unga to'rtta Button obyektini ikki ustun qilib joylang.
Ulardan birinchisi ikkinchi ustundagilarining , ikkinchisi esa birinchi ustundagilarining faolligini , uchinchi va to'rtinchilari esa ko'rinmasligini har safar teskarisiga o'zgarsin.
Birinchi tugmani ikki marta bosib , uning protsedurasiga:
101
Button2.Enabled:=not Button2.Enabled; Button4.Enabled:=not Button4.Enabled; ikk:inchi tugrna protsedurasiga Buttonl.Enabled:=not Buttonl.Enabled; Button3.Enabled:=not Button3.Enabled; uchinchi tugrna protsedurasiga Button2.Visible:=not Button2.Visible; Button4.Visible:=not Button4.Visible; to'rtinchi tugrna protsedurasiga Button2.Visible:=not Button2.Visible; Button4.Visible:=not Button4.Visible; operatorlami kiriting.
Ilovani ishga tushirib, to'g'ri ishlashini tekshiring.
Ilovani saqlab, uni yoping.
Oldingi darsdagi rnashqlami kornpyuterda bajaring.
600>600>Do'stlaringiz bilan baham: