TGroupBox/fi

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

From the Free Pascal wiki, page "TGroupBox/fi", as it stood on 2019-09-15 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.