Informatika va axborot

3. Visible va Enabled xossalaridan foydalanish. 
Obyektlarning bu
xossalaridan foydalanib, oxirgi ilova ishini yaxshilaymiz. Uning oynasi 
kengligi 600 dan oshib ketsa, 
Button1
tugmasining 
Enabled
xossasini 
yolg‘on qilib o‘rnatamiz. Natijada oynani boshqa kengaytirib bo‘lmaydi. 
Dastlab 
ikkinchi 
tugma 
Button2
ilova 
oynasida 
ko‘rinmasin 
(
Button2.Visible=False
).

---

100 
Birinchi tugma yordamida ilova oynasini kengaytirib boramiz. U 600 
dan oshib ketishi bilan ikkinchi tugma oynada paydo bo‘ladi 
(
Button2.Visible:=True
) 
va 
birinchi 
tugma 
xira 
tortib 
qoladi 
(
Button1.Enabled:=False
). Endi faqat ikkinchi tugma yordamida ilova 
oynasi kengligini kamaytirish mumkin. Kenglik 600 pikseldan kamayishi 
bilan birinchi tugma yana faol holatga o‘tsin (
Button1.Enabled:=True
). 
Oyna kengligi 400 dan kamayib ketsa, ikkinchi tugma yana g‘oyib bo‘lsin 
va oynani boshqa kichiklashtirib bo‘lmasin. 
Birinchi tugma bosilganda nima qilish kerakligini ko‘rsatish uchun uni 
ikki marta bosamiz va kursor turgan joyga quyidagi kodni kiritamiz: 
If Form1.Width<600 then 
begin 
Form1.Width:=Form1.Width+16; 
Form1.Height:=Form1.Height+9; End else 
begin 
Button2.Visible:=True; 
Button1.Enabled:=False; end; 
Ikkinchi tugmani ikki marta bosib quyidagi dastur bo‘lagini kiritamiz: 
If Form1.Width>400 then 
begin 
Form1.Width:=Form1.Width-16; 
Form1.Height:=Form1.Height-9; End else 
Button2.Visible:=False; 
if Form1.Width<600 then Button1.Enabled:=True; 
YODDA SAQLANG ! 
Har bir vizual obyekt faol yoki sust, ko‘rinmas yoki ko‘rinadigan 
holatda bo‘lishi mumkin. 

---

101