Difference between revisions of "TGroupBox"
From Free Pascal wiki
Jump to navigationJump to search (Usage added) |
|||
Line 1: | Line 1: | ||
{{TGroupBox}} | {{TGroupBox}} | ||
− | + | A '''TGroupBox''' [[image:tgroupbox.png]] is a container that allows a number of objects to be grouped physically and conceptually on a form. | |
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
==Usage== | ==Usage== | ||
+ | To use a [[doc:lcl/stdctrls/tgroupbox.html|TGroupBox]] on a [[TForm|form]], you can simply select it on the [[Standard tab]] of the [[Component Palette]] and place it by clicking on the form. | ||
− | + | ==Small example== | |
− | |||
− | |||
− | |||
* create a new application and place two TGroupBoxes on your form | * create a new application and place two TGroupBoxes on your form | ||
* in GroupBox1 insert a [[TButton]] ''Button1'' and in GroupBox2 TButton ''Button2'' | * in GroupBox1 insert a [[TButton]] ''Button1'' and in GroupBox2 TButton ''Button2'' | ||
Line 52: | Line 42: | ||
==See also== | ==See also== | ||
− | [[ | + | * [[doc:lcl/stdctrls/tgroupbox.html|TGroupBox doc]] |
− | [[TPairSplitter]] | + | * [[TPairSplitter]] |
− | [[TNotebook]] | + | * [[TNotebook]] |
− | [[TPageControl]] | + | * [[TPageControl]] |
− | [[TTabControl]] | + | * [[TTabControl]] |
− | |||
− | |||
{{LCL Components}} | {{LCL Components}} | ||
− | |||
− | |||
− | |||
− |
Revision as of 16:51, 24 July 2016
│
Deutsch (de) │
English (en) │
suomi (fi) │
français (fr) │
日本語 (ja) │
русский (ru) │
A TGroupBox is a container that allows a number of objects to be grouped physically and conceptually on a form.
Usage
To use a TGroupBox on a form, you can simply select it on the Standard tab of the Component Palette and place it by clicking on the form.
Small example
- create a new application and place two TGroupBoxes on your form
- in GroupBox1 insert a TButton Button1 and in GroupBox2 TButton Button2
- put on your form (outside of the groupboxes) two TRadioButton
- change in the object Inspector the caption of RadioButton1 to User and of RadioButton2 to Administrator
- change the property Checked of RadioButton2 to True
- create the OnChange event handler of RadioButton1 by double clicking RadioButton1
- use this handler also for RadioButton2
- choose in the object Inspector RadioButton2'
- now select the tab Events in the object Inspector
- go to the event OnChange and select in the adjacent combobox RadioButton1Change
- make GroupBox2 for user invisible by choosing in the RadioButton
- write following line in the event handler of the RadioButtons in the source editor:
procedure TForm1.RadioButton1Change(Sender: TObject);
begin
GroupBox2.Visible:=Radiobutton2.Checked;
end;
- add still the event handler of the buttons and add some code like:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Users and administrators can click this button');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ShowMessage('Only administrators can click this button');
end;
- start your program, it could look like:
See also