TToggleBox/fi

TToggleBox on kaksitilainen tekstillä varustettu painike, joka otetaan käyttöön tai poistetaan käytöstä yhdellä klikkauksella. Se löytyy komponenttipaletin Standard-välilehdeltä.

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

• TToggleBox doc
• TButton
• TCheckBox
• TRadioButton

From the Free Pascal wiki, page "TToggleBox/fi", as it stood on 2019-11-09 after a change by Djzepi, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's Licensing page. If you have concerns about this material, message the admin.