7 (1453)

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

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

Rysunek 7.4.

Listy TComboBox

|HBH 3

kierowca

informatyk

elektronik

lekarz

kominiarz

ekonomista_

Rozwiązanie

Na liście właściwości Items dla pierwszej listy wpisz imiona i nazwiska osób, dla drugiej listy — odpowiadające im zawody w tej samej kolejności.

W procedurze obsługi zdarzenia OnChange dla pierwszej listy wpisz instrukcje, jak w procedurze poniżej:

procedurę TForml.ComboBoxlChange(Sender: TObject): begin

ComboBox2.Text:=ComboBox2.Items[ComboBoxl.Itemlndex]; end:

Sposoby wyświetlania elementów listy

Przykład 7.11.

Dla listy z przykładu 7.3 ustaw możliwość wyświetlania elementów w trzech kolumnach.

Rozwiązanie

Można zmienić liczbę kolumn w okienku Inspektora Obiektów dzięki właściwości Col umns lub programowo — przez wpisanie instrukcji:

Listbox2.Columns:=3;

Przykład 7.12.

Zmień wysokość listy zawierającej nazwy kolorów (z przykładu 7.4) tak, aby wszystkie elementy nie wyświetlały się na liście. W procedurze obsługi zdarzenia OnClick dla przycisku TButton wpisz instrukcje, które umożliwią wyświetlenie w okienku listy niewidocznego elementu listy — bez przewijania za pomocą suwaka.

Rozwiązanie

Można wykorzystać właściwość TopIndex i funkcję Items. IndexOf zwracającą numer elementu na liście. Właściwość TopIndex zawiera numer elementu wyświetlonego na liście jako pierwszy i nie zmienia się, jeśli cała lista lub jej ostatnie elementy mieszczą się w okienku listy.