4 (1944)

112 Aplikacje w Delphi. Przykłady

Procedura obsługi zdarzenia OnClick dla drugiego komponentu TCheckBox. Zaznaczenie tego przycisku opcji spowoduje dodanie podkreślenia do napisu na etykiecie, a skasowanie zaznaczenia usunie podkreślenie.

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

if CheckBox2.Checked then Labell.Font.Style:=Labell.Font.Style+[fsllnderline] el se Label 1. Font. Styl e: =Label 1. Font. Styl e- [fstlnderl i ne]:

//lub fsBold. fsltalic. fsStrikeOut end;

Procedura obsługi zdarzenia OnClick dla trzeciego komponentu TCheckBox. Zaznaczenie przycisku spowoduje zmianę rozmiaru czcionki napisu na etykiecie (na 16 pkt). Usunięcie zaznaczenia pola przywraca poprzedni rozmiar czcionki, zapamiętany przy tworzeniu formularza:

//zmiana rozmiaru czcionki etykiety

procedurę TForml.CheckBox3Click(Sender: TObject):

begin

if CheckBox2.Checked then Labell.Font.Si ze:=16 else Labell.Font.Si ze:=rozmiar; end:

Przykład 9.2.

Napisz program, który umożliwi przeliczenie kwoty w złotówkach, wprowadzonej z klawiatury do okienka TEdi t, na dolary, funty i euro, po czym wyświetli wynik na etykiecie. Wykorzystaj komponent TRadioGroup.

Rozwiązanie

Wstaw na formularzu komponenty TRadioGroup, TEdit oraz dwa typu TLabel. Dla komponentu TRadioGroup kliknij dwukrotnie z prawej strony właściwości Items i wpisz dane jak na rysunku 9.2. Właściwości Columns przypisz wartość 2. W procedurze obsługi zdarzenia OnClick dla komponentu TRadioGroup wpisz instrukcje, jak w procedurze poniżej:

wprowadź wartość w zr P®    3.33C

Waluty

r    ot KrtlBij

C dolar (4 słj C euro (4,2 złj

Rysunek 9.2.

Przykład z komponentem TRadioGroup

procedurę TForml.RadioGrouplClick(Sender: TObject);

var i:integer;

begin

case RadioGroupl.Itemlndex of 0: begin

Label1.Font.Cha rset:=EASTEUROPE_CHARSET;

Labell.Caption:=Editl.Text+' zł': end:

1: Labell.Caption:=FloatToStrF(StrToFloat(Editl.Text)/4.ffFixed.5.2)+'$';