Rivojlantirish va muvofiqlashtirish hududiy boshqarmasi amudaryo tuman kasb-hunar maktabi

List Box komponenti. 
Ushbu component foydalanuvchiga tanlash uchun elementlar ro’yxatini 
ko’rsatadi. Ayrim vaqtda siz o’z dasturingizda juda ko’p elementlarning 
ro’yxatini ko’rsatish lozim bo’lib qoladi. Bunday holatlar uchun ro’yxatlar 
darchasida standart ko’rinishdagi surgich payda bo’ladi va yordam beradi. 
Ro’yxatlar paneliga elementlarni qo’shish yoki olib tashlash mumkin. Ushbu 
komponentning ichki ko’rinishini o’zgartirish uchun mo’ljallangan turli xil 
xossalari mavjud. 
Ro’yxatlar darchasini formada joylash uchun ko’p joy zarur bo’ladi. 
Kombinatsiyalashgan panel komponenti 
Combo Box
ni formada joydan iqtisod 
qilish uchun foydalanish qulayroqdir. 
 
- 
Combo Box komponenti. 
Combo Box
komponenti 
Сombination Boxes
so’zidan qisqartirilgan bo’lib 
List Box
komponentiga o’xshashdir. Lekin kombinatsiyalashgan darcha kam 
joyni talab qiladi va bir vaqtning o’zida bitta elementni ko’rsatadi. 
Demak, List Box komponenti bilan Combo Box komponentining farqi bir vaqtning 
o’zida qancha element ko’rsata olishda ekan. Joydan tejash maqsadida Combo 
Box dan foydalanish qulayroq bo’lsa, ko’proq elementni ko’rsatish uchun List Box 
dan foydalanish qulay. Eng So‘rovnomada har bir o‘quvchi faqat bittadan fanni 
ko‘rsata olsin. Bu ilovada Radiogroup obyektidan foydalanamiz. Avval uning 
sarlavhasini o‘zgartiramiz va undagi to‘rtta Checkbox obyektlarini olib 
tashlaymiz. Buning uchun ular ustida navbatma-navbat sichqonchaning chap 
tugmasini bosib, so‘ng klaviaturadagi Delete tugmasini bosamiz: 
Uning o‘rniga yuqoridagi ko‘rsatilgan usulda Radiogroup obyektini 
joylashtiramiz va unga to‘rtta radiotugmani quyida ko‘rsatilgandek kiritamiz. 

---

Endi OK tugmasini ikki marta bosib uning TForm1.Button1Click protsedurasiga 
quyidagi kodni kiritamiz: 
procedure TForm1.Button1Click(Sender: TObject); 
var i:integer;begin 
n[0]:=n[0]+1; 
i:= Radiogroup1.Itemindex; if i>=0 then n[i+1]:=n[i+1]+1; 
Radiogroup1.Itemindex:=-1; end;
Bu protsedura har safar ishga tushganda (ilovadagi OK tugmasi bosilganda)
ikkinchi qatordagi operator yordamida yangi o‘zgaruvchi: i ni yaratadi. 
To‘rtinchi qatorda so‘rovda qatnashganlar sonini bittaga oshiradi. Beshinchi
qatorda Radiogroup1 da qaysi variant tanlanganini i o‘zgaruvchiga uzatiladi.
Agar bu qiymat 0 dan katta yoki unga teng bo‘lsa, ya’ni biror variant tanlangan 
bo‘lsa, oltinchi qatorda bu variantning tanlanganligi soni bittaga oshadi. Yettinchi
qatorda variantlar tanlanmagan holga o‘tkaziladi va protsedura o‘z ishini 
tugatadi. Ilova esa keyingi foydalanuvchining tanlovini qabul qilishga tayyor 
turadi: 
qiziqarli fan ilovasi. Qiziqarli fanlar ilovasini bir oz o‘zgartiramiz.