TGroupBox/fi

│ Deutsch (de) │ English (en) │ suomi (fi) │ français (fr) │ 日本語 (ja) │ русский (ru) │

TGroupBox on säiliö (tai kontti), jonka avulla joukko komponentteja voidaan ryhmitellä fyysisesti ja käsitteellisesti lomakkeelle.

Käyttö

Jos halutaan käyttää TGroupBox:a lomakkeella, se voidaan valita komponenttipaletin Standard-välilehdeltä ja sijoittaa sen napsauttamalla lomaketta.

Pieni esimerkki

• Luo uusi sovellus ja aseta kaksi TGroupBox-komponenttia lomakkeelle
• Lisää GroupBox1:n TButton painike nimeltään Button1 ja GroupBox2:n TButton painike nimeltään Button2
• Laita lomakkeelle (TGroupBoxien ulkopuolelle) kaksi radiopainiketta (TRadioButton)
• Muuta komponettimuokkaimessa RadioButton1:n Caption ominaisuuden arvoksi Benutzer (Benutzer on saksaa ja tarkoittaa suomeksi käyttäjää) ja RadioButton2:n Caption ominaisuuden arvoksi Administrator (Administrator on suomeksi järjestelmänvalvoja)
• Muuta property (ominaisuus) Checked RadioButton2:ssa arvoon True
• Luo OnChange tapahtuman käsittelijä RadioButton1:lle kaksoisklikkaamalla RadioButton1:stä
• Laita tämä tapahtuman käsittelijä myös RadioButton2:lle
  • valitsemalla komponettimuokkaimessa ensin RadioButton2'
  • sitten valitaan Tapahtumat välilehti
  • ja siirrytäänOnChange tapahtumaan ja valitaab se yhdistelmäruudusta RadioButton1Change
• Tee GroupBox2 näkymättömäksi kun RadioButton:sta valitaan Benutzer.
  • kirjoita seuraava rivi lähdekoodieditorin RadioButton1:n-tapahtumakäsittelijään:

procedure TForm1.RadioButton1Change(Sender: TObject);
begin
  GroupBox2.Visible:=Radiobutton2.Checked;
end;

• Lisää vielä painikkeiden tapahtumankäsittelijät ja täydennä niiden koodi seuraavanlaiseksi:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Benutzer and administrator can click this button');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage('Only administrator can click this button');
end;

• siinä näytetään ShowMessage dialogilla kuka voi painaa painiketta
• käynnistä ohjelma, se voi näyttää seuraavalta:

->

Katso myös

• TGroupBox doc
• TPairSplitter
• TNotebook
• TPageControl
• TTabControl