4 (1946)

90 Aplikacje w Delphi. Przykłady

Przykład 7.3.

Umieść na formularzu nową listę TListBox i przycisk TButton. Po każdym kliknięciu przycisku dodawana jest do listy liczba losowa z zakresu 0-9.

Rozwiązanie

W procedurze obsługi kliknięcia przycisku wpisz instrukcję:

Listboxl.Iteras.Add(Inttostr(Random(10))):

Wybieranie elementów z listy

Przykład 7.4.

Dla listy, która zawiera nazwy kolorów, dodaj obsługę zdarzenia OnClick polegającą na zmianie koloru komponentu TShape na kolor wybrany z listy. Dodatkowo wyświetl na etykiecie nazwę koloru wybranego z listy.

Rozwiązanie

Dodaj do formularza komponent TShape z zakładki Additional i etykietę TLabel. W procedurze obsługi zdarzenia OnCl i ck dla listy wpisz instrukcje, jak w procedurze poniżej:

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

with ListBoxl do case Itemlndex of 0: Shapel.Brush.Color:=clWhite;

1: Shapel.Brush.Color:=clRed;

2: Shapel.Brush.Color:=clBlue;

3: Shapel.Brush.Color:=cl01ive;

4: Shapel.Brush.Color:=clGray;

5: Shapel.Brush.Color:=clGreen;

6: Shapel.Brush.Color:=clYellow: end:

Label1.Capti on:=Listboxl.Items.Strings[Li stboxl.Itemi ndex]; end:

Przykład 7.5.

Dla listy, która zawiera nazwy kolorów, dodaj obsługę zdarzenia OnCł i ck polegającą na zmianie koloru formularza na kolor wybrany z listy. Skorzystaj z listy TColorListBox (zakładka Additional). Dodatkowo wyświetl na etykiecie nazwę koloru wybranego z listy.

Rozwiązanie

Dodaj do formularza etykietę Tlabel. W procedurze obsługi zdarzenia OnClick dla listy wpisz instrukcje, jak w procedurze poniżej: