Лист бокс је компонента избора која може да садржи више ставки. Користи се када подаци који треба да се прикажу представљају неки списак. Из листе се може изабрати једна могућност, па се на основу те изабране ставке у програму могу доносити одређене одлуке.
Ставке се у листу додају помоћу својства Items из ObjectInspector-a. Својство ItemsIndex се односи на редни број ставке у листи и креће од нуле за прву ставку итд.
Када је вредност ItemsIndex једнака -1, ниједна ставка у листи није селектована.
решење задатка : путовање
извршна верзија: putovanja.exe
Aleksandar
дец 09, 2010 @ 12:11:25
Predlazem vam ovu promenu u proceduri za ovaj zadatak
procedure TForm1.ListBox1Click(Sender: TObject);
begin
edit2.Text:=listbox1.Items[listbox1.itemindex];
case listbox1.ItemIndex of
0 : begin c:=2000; km:=1500;end;
1 : begin c:=1000;km:=1000;end;
2 : begin c:=1500;km:=1900;end;
3 : begin c:=3000;km:=5000;end;
4 : begin c:=3000;km:=1200;end;
5 : begin c:=1000;km:=1100;end;
6 : begin c:=2000;km:=1000;end;
7 : begin c:=3000;km:=4500;end;
end;
end;
Primeri na sajtu su vam odlicni.
Pozdrav
Natalija Preradov
дец 09, 2010 @ 20:38:50
Хвала на предлогу, свиђа ми се. Не може човек баш све знати. Зато је сваки добар предлог добродошао!
Поздрав