5 (1734)

Rozdział 9. ♦ Grupowanie komponentów 113

2: begin

LabeU.Font.Charset:=ANSI_CHARSET: //to ze względu na znak funta Labell.Caption:=F1oatToStrF(StrToFloat(Editl.Text)/6,ffFixed.5,2)+chr($A3); end;

3: Labe11.Caption:=FloatToStrF(StrToFloat(Editl.Text)/4.2,ffFixed, 5,2)+'€'://Alt-0128 end; end;

Przykład 9.3.

Napisz program, który umożliwi obliczenie ceny komputera w zależności od wybranych elementów składowych, np. rodzaju monitora, karty graficznej i innych części składowych — rysunek 9.3. Wykorzystaj komponenty TGroupBox oraz TCheckBox.

■"Elementy kompułeta---

F monitor (500złj F karta grafiki flSOzłj

Rysunek 9.3

r iklawatuta f2Sżłj F płyta główna f3QQzłj

Komponenty TGroupBox i TCheckBox

Rozwiązanie

Przypisz właściwości Caption komponentów TCheckBox nazwy, jak na rysunku 9.3. Zadeklaruj zmienną globalną s. W procedurach obsługi zdarzeń OnCl i ck dla poszczególnych komponentów TCheckBox wpisz instrukcje, jak w procedurach poniżej:

//procedura obsługi zdarzenia OnClick dla pierwszego pola TCheckBox (monitor)

procedurę TForml.CheckBoxlClick(Sender; TObject);

begin

if CheckBoxl.Checked then s:=s+500 else s:=s-500;

Label1.Capti on:=’suma='+InttoStr(s); end;

//procedura obsługi zdarzenia OnClick dla drugiego pola TCheckBox (karta grafiki)

procedurę TForml.CheckBox2Click(Sender: TObject);

begin

if CheckBox2.Checked then s:=s+150 else s:=s-150;

Label 1.Capti on;='suma='+InttoStr(s); end;

//procedura obsługi zdarzenia OnClick dla trzeciego pola TCheckBox (klawiatura)

procedurę TForml.CheckBox3Click(Sender: TObject):

begin

if CheckBox3.Checked then s:=s+20 else s:=s-20;

Label1.Capti on: ='suma='+InttoStr(s): end;

//procedura obsługi zdarzenia OnClick dla czwartego pola TCheckBox (płyta główna)

procedurę TForml.CheckBox4Click(Sender: TObject);

begin

if CheckBox4.Checked then s:=s+300 else s:=s-300;

Label l.Caption: = ’suma='+InttoStr(s); end;