TToggleBox/fi
│
Deutsch (de) │
English (en) │
suomi (fi) │
français (fr) │
日本語 (ja) │
русский (ru) │
TToggleBox 
on kaksitilainen tekstillä varustettu painike, joka otetaan käyttöön tai poistetaan käytöstä yhdellä klikkauksella.
Missä tahansa lähdekoodissa voidaan tarkistaa sen tila onko se aktiivinen tai passiivinen kyselyllä
Status := <ToggleBox>.Checked;.
Tämä voidaan tarkistaa Checked ominaisuudesta joka on Boolean arvo. Lisäksi myös arvon liittäminen <ToggleBox>.Checked := True;, on mahdollista.
Yksinkertainen esimerkki
- Luo uusi sovellus ja pudota kolme TToggleBox-komponenttia lomakkeelle.
- Muuta niiden (ToggleBox1...3) caption ominaisuudet arvoihin Red, Green ja Blue sekä name ominaisuudet vastaavasti tbRed, tbGreen ja tbBlue.
- Lisää lomakkeelle TButton ja muuta caption ominaisuus arvoon Paint new ja sen name ominaisuus arvoon btnPaint.
- Luo OnClick -tapahtumakäsittelijä TButton:lle siirtymällä komponenttimuokkaimen tapahtumatvälilehdelle, valitse OnClick-tapahtuma ja paina [...] -painiketta tai yksinkertaisesti kaksoisklikkaa sitä lomakkeella.
- Lisää seuraava koodi btnPaint-tapahtuman käsittelijään:
procedure TForm1.btnPaintClick(Sender: TObject);
var
aColor: TColor;
begin
aColor:=0; //Background color of Form1 is set according to the Toggleboxes
if tbRed.Checked then aColor:=aColor + $0000FF;
if tbGreen.Checked then aColor:=aColor + $00FF00;
if tbBlue.Checked then aColor:=aColor + $FF0000;
Color := aColor; //the change of the property <Formular>.Color causes a redrawing of the form
end;
- Käynnistä ohjelma, sen pitäisi näyttää tämäntapaiselta:
-> 
Käytä tapahtumaa
Ero edelliseen esimerkkiin nähden on, että lomaketta ei maalattaisi uudelleen painikkeen klikkauksella, vaan klikkaamalla yhtä togglebox:a.
Edellistä esimerkkiä voidaan muokata poistamalla painike ja sen OnClick-tapahtumakäsittelijä lähdekoodista. Mutta on myös helppoa, luoda uusi esimerkki:
- Luo uusi sovellus ja pudota kolme TToggleBox-komponenttia lomakkeelle.
- Muuta niiden (ToggleBox1...3) caption ominaisuudet arvoihin Red, Green ja Bluesekä name ominaisuudet vastaavasti tbRed, tbGreen ja tbBlue.
- Luo OnChange-tapahtumakäsittelijä yhdelle ToggleBoxin tapahtumankäsittelijälle esim.
TForm1.tbRedChange(Sender: TObject);ja liitä se myös muihin ToggleBoxeihin:- Kaksoisklikkaa tbRed lomakkeella tai valitse tbRed lomakkeella ja siirry komponenttimuokkaimen tapahtumien välilehteen, valitse OnChange-tapahtuma ja klikkaa painiketta [...]
- Se luo proceduren tbRedChange.
- Valitse tbGreen lomakkeella.
- siirry komponenttimuokkaimen tapahtumien välilehteen, valitse OnChange tapahtuma ja valitse tbRedChange yhdistelmäruudusta.
- Valitse nyt lomakkeellasi tbBlue ja tee samoin kuin tbGreen:lle.
- Siirry OnChange tapahtumaan ja muuta se:
procedure TForm1.tbRedChange(Sender: TObject);
var
aColor: TColor;
begin
aColor:=0; //Background color of Form1 is set according to the Toggleboxes
if ToggleBox1.Checked then aColor:=aColor + $0000FF;
if ToggleBox2.Checked then aColor:=aColor + $00FF00;
if ToggleBox3.Checked then aColor:=aColor + $FF0000;
Color := aColor; //the change of the property <Formular>.Color causes a redrawing of the form
end;
Katso myös
