3 (2250)

Rozdział 9. ♦ Grupowanie komponentów 111

Przykład 9.1.

Zaprojektuj formularz tak, jak na powyższym rysunku. Działanie programu polega na zmianie atrybutów czcionki na etykiecie i wyświetlanego łańcucha znaków.

Rozwiązanie

Umieść na formularzu komponenty TGroupBox, wewnątrz trzy przyciski opcji TCheckBox oraz komponent TRadioGroup.

Dla przycisków TCheckBox zmień właściwość Caption —jak na rysunku 9.1.

Dla komponentu TRadioGroup kliknij z prawej strony właściwości Itenis i wpisz w kolejnych wierszach: Tekstl, Tekst2, Tekst3 i Tekst4.

Zadeklaruj dwie zmienne globalne (lub pola klasy TForml w części private), które będą potrzebne do zapamiętania poprzednich atrybutów czcionki:

var

kolor: TColor; rozmiar: integer;

W odpowiednich procedurach obsługi zdarzeń wpisz instrukcje.

// ustawienie wartości początkowych procedurę TForml.FormCreateCSender: TObject); begin

kolor:=Label1.Font.Color; rozmi ar:=Label1.Font.Si ze:

RadioGroupl.ItemIndex:=0; //zaznaczenie pierwszego przycisku w grupie RadioGroup end;

Po kliknięciu przycisku w grupie TRadioGroup na etykiecie wyświetla się napis informujący o numerze wybranego przycisku.

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

case RadioGroupl.Itemlndex of 0: Labell.Caption:='tekst pierwszy':

1: Labell.Caption:='tekst drugi';

2: Label1.Capti on: ='tekst trzeci';

3: Labell.Caption:='tekst czwarty': end; end;

Procedura obsługi zdarzenia OnClick dla pierwszego komponentu TCheckBox. Zaznaczenie przycisku powoduje zmianę koloru napisu na etykiecie na czerwony, natomiast usunięcie zaznaczenia przywraca kolor poprzedni.

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

if CheckBoxl.Checked then Labell.Font.Color:=clRed else Label1.Font.Color:=kolor; end;