9 (1219)

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

Lista z nazwami czcionek

Przykład 7.14.

Wstaw nową listę typu TComboBox i przycisk TButton — rysunek 7.5. Listę wypełnij nazwami czcionek systemowych. Napisz procedurę, która spowoduje zmianę kroju czcionki na etykiecie po wybraniu jej na liście.

Rozwiązanie

W procedurze obsługi zdarzenia OnCreate dla formularza wpisz instrukcję wypełniającą listę nazwami czcionek i wyświetlającą w oknie tekstowym listy nazwę pierwszej czcionki z listy. W procedurze OnChange dla listy zmień czcionkę na etykiecie.

Rysunek 7.5.

Okno aplikacji z listą TComboBox

//zmiana czcionki na etykiecie

procedurę TForml.ComboBoxlChange(Sender: TObject);

begin

Label1.Font.Name:=Comboboxl.Text; end:

//wczytanie czcionek systemowych do listy typu TCombobox

procedurę TForml.FormCreatetSender: TObject);

begin

Comboboxl.Items.AddStrings(Screen.Fonts); //pobranie czcionek systemowych Comboboxl.Text:=Comboboxl.Items[0]; //wyświetlenie nazwy pierwszej czcionki w oknie end; // TCombobox

Blokowanie edycji dla listy TComboBox

Sposoby ograniczenia możliwości wystąpienia błędów w programie, spowodowanych wprowadzeniem nieprawidłowych danych przez użytkownika, opisane zostały już w rozdziale 4. Lista typu TComboBox posiada pole tekstowe, które służy do wyświetlania elementu wybranego z listy, a także do wprowadzania z klawiatury nowych elementów do listy. Standardowo pole to jest odblokowane, czyli istnieje możliwość wprowadzania do niego danych z klawiatury. Lista TComboBox nie posiada, tak jak pole tekstowe TEdit, właściwości ReadOnly, blokującej możliwość wprowadzania danych. Istnieje jednak możliwość zablokowania tego pola poprzez odpowiednie ustawienie właściwości Styl e komponentu TComboBox. Sposób ten przedstawiono w przykładzie 7.15.