6 (1597)

92 Aplikacje w Delphi. Przykłady

//po kliknięciu elementu listy jego wartość zwiększa się o 1

procedurę TForml.ListBoxlClick(Sender: TObject);

begin

with ListBoxl do // Itemlndex=-1 jeśli nie wybrano żadnego elementu Items[ltemlndex]:=InttoStr(StrtoInt(Items[ItemIndex])+l);

end;

Przykład 7.8.

Dla listy z poprzedniego zadania powiększ wartość elementów zaznaczonych na liście po kliknięciu przycisku (nie jak w poprzednim przykładzie — po kliknięciu elementu listy).

Rozwiązanie

Oto treść procedury OnCl ick dla przycisku:

//po kliknięciu przycisku wartość elementów zaznaczonych zwiększa się o 1 procedurę TForml.ButtonlClick(Sender: TObject); var iloscw:integer; begin

with ListBox2 do

for iloscw:=0 to Items.Count-1 do if Selectedliloscw] then

Itemsliloscw]:=Inttostr(StrtoInt(Items[iloscw])+l);

end;

Ustaw właściwość MultiSelect na true.

Przykład 7.9.

Wyświetl na etykiecie wybrany element z listy TComboBox.

Rozwiązanie

Wstaw na formularzu komponent TComboBox z zakładki Standard. Korzystając z Inspektora Obiektów wprowadź do listy kilka elementów (właściwość Items).

Kliknij dwukrotnie listę i w procedurze obsługi zdarzenia OnChange wpisz instrukcję, jak w procedurze poniżej:

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

Label2.Capti on:=ComboBoxl.Text;

//lub

IILabel2.Capti on:=Comboboxl.Items[Comboboxl.Itemlndex]; end;

Przykład 7.10.

Wstaw dwie listy typu TComboBox. Jedna lista powinna zawierać nazwiska i imiona osób, druga natomiast zawody osób z listy pierwszej — rysunek 7.4. Po wybraniu osoby z listy pierwszej w okienku tekstowym (właściwość Text) listy drugiej wyświetla się nazwa zawodu odpowiadającego wybranej osobie z listy pierwszej.