Sign in Join
Wiki copytemporary

TGroupBox/fi: what changed

Revision 0 to 1. Removed lines have a minus sign; added lines have a plus sign.

Title: TGroupBox/fi

OldNewLine
1+**TGroupBox** ![](/wiki-images/b/b8/Tgroupbox.png) on *säiliö* (tai kontti), jonka avulla joukko komponentteja voidaan ryhmitellä fyysisesti ja käsitteellisesti [[TForm/fi|lomakkeelle]].
2+
3+## Käyttö
4+
5+Jos halutaan käyttää [[doc:lcl/stdctrls/tgroupbox.html|TGroupBox]]:a lomakkeella, se voidaan valita [[Component Palette/fi|komponenttipaletin]] [[Standard tab/fi|Standard-välilehdeltä]] ja sijoittaa sen napsauttamalla lomaketta.
6+
7+## Pieni esimerkki
8+
9+- Luo uusi sovellus ja aseta kaksi TGroupBox-komponenttia lomakkeelle
10+- Lisää GroupBox1:n [[TButton/fi|TButton]] painike nimeltään *Button1* ja GroupBox2:n TButton painike nimeltään *Button2*
11+- Laita lomakkeelle (TGroupBoxien ulkopuolelle) kaksi [[TRadioButton/fi|radiopainiketta (TRadioButton)]]
12+- Muuta [[IDE Window: Object Inspector/fi|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)
13+- Muuta [[Property/fi|property (ominaisuus)]] *Checked* RadioButton2:ssa arvoon *[[True/fi|True]]*
14+- Luo *OnChange* [[Event handler/fi|tapahtuman käsittelijä]] RadioButton1:lle kaksoisklikkaamalla *RadioButton1*:stä
15+- Laita tämä tapahtuman käsittelijä myös RadioButton2:lle
16+ - valitsemalla komponettimuokkaimessa ensin ''RadioButton2'
17+ - sitten valitaan *Tapahtumat* välilehti
18+ - ja siirrytään*OnChange* tapahtumaan ja valitaab se yhdistelmäruudusta *RadioButton1Change*
19+- Tee *GroupBox2* näkymättömäksi kun RadioButton:sta valitaan *Benutzer*.
20+ - kirjoita seuraava rivi lähdekoodieditorin RadioButton1:n-tapahtumakäsittelijään:
21+
22+``` Pascal
23+procedure TForm1.RadioButton1Change(Sender: TObject);
24+begin
25+ GroupBox2.Visible:=Radiobutton2.Checked;
26+end;
27+```
28+
29+- Lisää vielä painikkeiden tapahtumankäsittelijät ja täydennä niiden koodi seuraavanlaiseksi:
30+
31+``` Pascal
32+procedure TForm1.Button1Click(Sender: TObject);
33+begin
34+ ShowMessage('Benutzer and administrator can click this button');
35+end;
36+
37+procedure TForm1.Button2Click(Sender: TObject);
38+begin
39+ ShowMessage('Only administrator can click this button');
40+end;
41+```
42+
43+- siinä näytetään [[Dialog Examples|ShowMessage dialogilla]] kuka voi painaa painiketta
44+- käynnistä ohjelma, se voi näyttää seuraavalta:
45+
46+![](/wiki-images/9/9a/ExampleTGroupBox1.png) -\> ![](/wiki-images/f/f3/ExampleTGroupBox2.png)
47+
48+## Katso myös
49+
50+- [[doc:lcl/stdctrls/tgroupbox.html|TGroupBox doc]]
51+- [[TPairSplitter/fi|TPairSplitter]]
52+- [[TNotebook/fi|TNotebook]]
53+- [[TPageControl/fi|TPageControl]]
54+- [[TTabControl/fi|TTabControl]]
55+
56+---
57+*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](/wiki-contact).*

Back to history