Mavzu: Dasturlash tillari faniga kirish. Ob’ektga yo‘naltirilgan dasturlash tillari

 

procedure TForm1.OptionsTabChange(Sender: TObject); 

begin 

Panel1.Visible:=false; 

Panel2.Visible:=false; 

Panel3.Visible:=false; 

Panel4.Visible:=false; 

case OptionsTab.TabIndex of 

0: Panel1.Visible:=true; 

1: Panel2.Visible:=true; 

2: Panel3.Visible:=true; 

3: Panel4.Visible:=true; 

end; 

---

end; 

 

Sahifalar to’plami  (TPageControl ) 

Bu  komponenta  TTabControl  komponenta  xossalariga  ega  bo’lib,  qo’shimcha 

imkoniyatlarga egadir. 

Agar  komponentada  sichqoncha  o’ng  tugmachvsi  bosilsa,  menyu  oynasi  paydo 

bo’ladi.  

 

Bu menyu yuqorisida 4  ta punkt mavjud: 

New Page – Yangi sahifa yaratish; 

Next Page – Keyingi sahifaga o’tish; 

Previous Page – oldingi sahifaga o’tish; 

Delete Page – ajratilgan sahifani o’chirish. 

Har bir sahifa bu alohida komponenta bo’lib, ob’ektlar inspektorida xossalarini 

o’rnatish mumkin. Masalan, TabSheet1 komponentasi xossalari ko’rinishi 

 

Har bir sahifa quyidagi asosiy xossalarga ega: 

 Caption, - sahifa nomi 

---

ImageIndex, - rasm tanlashga imkon beradi. Buning uchun formaga TImageListi 

komponentasini  o’rnatib,  rasmlar  joylashtirish  lozim.  Shundan  so’ng  PageControl 

komponentasi Images xossasida ImageList ko’rsatish lozim. Shundan so’ng sahifalar 

ImageIndex ro’yxatida rasmlar paydo bo’ladi. 

Komponentadan foydalanishga misol ko’ramiz. Dastur formasi ko’rinishi.