5 (1736)

Rozdział 7. ♦ Listy wyboru — TListBox i TComboBox 91

procedurę TForml.ColorListBoxlClick(Sender: TObject); begin

Color:=ColorLi stBoxl.Selected;

Label1.Capti on:=ColorLi stBoxl.Items[ColorLi stBoxl.Itemlndex];

Rysunek 7.3.

Lista TColorListBox

Przykład 7.6.

Oblicz sumę liczb zaznaczanych kolejno na liście z przykładu 7.3. Ustaw możliwość zaznaczania wielu elementów listy jednocześnie. Po usunięciu zaznaczenia elementu suma powinna się zmniejszyć o tę wartość. Suma jest wyświetlana na etykiecie TLabel.

Rozwiązanie

Zaznacz listę TListbox. Właściwość MultiSelect ustaw na true. Dodatkowo można zmienić właściwość ExtendedSelect. Jej wartość true oznacza możliwość wyboru wielu elementów z zastosowaniem klawiszy Ctrl i Shift (jak w Windows), wartość fal se — to samo bez użycia klawiszy Ctrl i Shift. Zadeklaruj zmienną globalną s lub stałą typowaną (lokalnie w procedurze).

Treść procedury obsługi zdarzenia OnCl i ck dla listy przedstawiono poniżej:

//obliczanie sumy wybranych elementów procedurę TForml.ListBoxlClick(Sender: TObject): var i:integer: begi n

s: =0:

with ListBoxl do for i:=0 to Count-1 do

if Selected[i] then //sprawdzenie zaznaczonych elementów S:=s+StrtoInt(Items[i]);

Label1.Capti on:=InttoStr(s); //wyświetlenie sumy na etykiecie end;

Przykład 7.7.

Wstaw listę TListBox, po czym dodaj do niej całkowite liczby losowe. Po kliknięciu liczby na liście TListbox jej wartość powiększa się o jeden.

Rozwiązanie

Treść procedury OnCl ick dla listy jest następująca: