Difference between revisions of "TGroupBox/fr"
From Lazarus wiki
Jump to navigationJump to search (Created page with "{{TGroupBox}} A '''TGroupBox''' image:tgroupbox.png is a container that allows a number of objects to be grouped physically and conceptually on a form. = Emploi = To use...") |
m (Added syntax highlighting) |
||
| (One intermediate revision by one other user not shown) | |||
| Line 1: | Line 1: | ||
{{TGroupBox}} | {{TGroupBox}} | ||
| − | + | Un '''TGroupBox''' [[image:tgroupbox.png]] est un conteneur (notion liée ici à celle de Parent) qui permet à un ensemble de composant visuels d'être groupés physiquement et conceptuellement sur la fiche. | |
= Emploi = | = Emploi = | ||
| − | + | Pour utiliser un [[doc:lcl/stdctrls/tgroupbox.html|TGroupBox]] sur une [[TForm/fr|fiche]], vous pouvez simplement le sélectionner depuis l'[[Standard tab/fr|onglet Standard]] et le placer en cliquant sur la fiche. | |
= Petit exemple = | = Petit exemple = | ||
| − | * | + | * Créez une nouvelle application et placez deux TGroupBox sur la fiche. |
| − | * | + | * Dans le GroupBox1 insérer un [[TButton/fr|bouton]] ''Button1'' et dans le GroupBox2 un autre ''Button2''. |
| − | * | + | * Posez sur votre fiche, en dehors des GroupBox deux [[TRadioButton/fr|boutons radio]]. |
| − | * | + | * Modifiez depuis l'inspecteur d'objet l'intitulé du RadioButton1 en ''User'' et celui de RadioButton2 en ''Administrator''. |
| − | * | + | * Modifiez le propriété ''Checked'' du RadioButton2 en ''True''. |
| − | * | + | * Créez le gestionnaire d'événement ''OnChange'' du RadioButton1 en double-cliquant ''RadioGroup1'' |
| − | * | + | * Utilisez ce gestionnaire aussi pour RadioButton2. |
| − | ** | + | ** Choisissez dans l'inspecteur d'objet ''RadioButton2'' |
| − | ** | + | ** Maintenant sélectionnez dans l'onglet ''Evénements'' dans l'inspecteur d'objet. |
| − | ** | + | ** Allez vers l'événement ''OnChange'' et sélectionnez dans le ComboBox adjacent ''RadioButton1Change'' |
| − | * | + | * Rendre ''GroupBox2'' invisible pour 'user' en choisissant le bouton radio |
| − | ** | + | ** Ecrivez le code suivant dans le gestionnaire des boutons radio depuis l'éditeur de source. |
| − | < | + | <syntaxhighlight lang=pascal> |
procedure TForm1.RadioButton1Change(Sender: TObject); | procedure TForm1.RadioButton1Change(Sender: TObject); | ||
begin | begin | ||
GroupBox2.Visible:=Radiobutton2.Checked; | GroupBox2.Visible:=Radiobutton2.Checked; | ||
end; | end; | ||
| − | </ | + | </syntaxhighlight> |
| − | * | + | * et un code comme suit pour les boutons : |
| − | < | + | <syntaxhighlight lang=pascal> |
procedure TForm1.Button1Click(Sender: TObject); | procedure TForm1.Button1Click(Sender: TObject); | ||
begin | begin | ||
| Line 36: | Line 36: | ||
ShowMessage('Only administrators can click this button'); | ShowMessage('Only administrators can click this button'); | ||
end; | end; | ||
| − | </ | + | </syntaxhighlight> |
| − | * | + | * Démarrez votre programme, il pourrait ressembler à ceci : |
[[image:ExampleTGroupBox1.png]] -> [[image:ExampleTGroupBox2.png]] | [[image:ExampleTGroupBox1.png]] -> [[image:ExampleTGroupBox2.png]] | ||
| Line 46: | Line 46: | ||
* [[TNotebook/fr|TNotebook]] | * [[TNotebook/fr|TNotebook]] | ||
* [[TPageControl/fr|TPageControl]] | * [[TPageControl/fr|TPageControl]] | ||
| − | * [[TTabControl]] | + | * [[TTabControl/fr|TTabControl]] |
{{LCL Components/fr}} | {{LCL Components/fr}} | ||
Latest revision as of 06:51, 1 March 2020
│
Deutsch (de) │
English (en) │
suomi (fi) │
français (fr) │
日本語 (ja) │
русский (ru) │
Un TGroupBox 
est un conteneur (notion liée ici à celle de Parent) qui permet à un ensemble de composant visuels d'être groupés physiquement et conceptuellement sur la fiche.
Emploi
Pour utiliser un TGroupBox sur une fiche, vous pouvez simplement le sélectionner depuis l'onglet Standard et le placer en cliquant sur la fiche.
Petit exemple
- Créez une nouvelle application et placez deux TGroupBox sur la fiche.
- Dans le GroupBox1 insérer un bouton Button1 et dans le GroupBox2 un autre Button2.
- Posez sur votre fiche, en dehors des GroupBox deux boutons radio.
- Modifiez depuis l'inspecteur d'objet l'intitulé du RadioButton1 en User et celui de RadioButton2 en Administrator.
- Modifiez le propriété Checked du RadioButton2 en True.
- Créez le gestionnaire d'événement OnChange du RadioButton1 en double-cliquant RadioGroup1
- Utilisez ce gestionnaire aussi pour RadioButton2.
- Choisissez dans l'inspecteur d'objet RadioButton2
- Maintenant sélectionnez dans l'onglet Evénements dans l'inspecteur d'objet.
- Allez vers l'événement OnChange et sélectionnez dans le ComboBox adjacent RadioButton1Change
- Rendre GroupBox2 invisible pour 'user' en choisissant le bouton radio
- Ecrivez le code suivant dans le gestionnaire des boutons radio depuis l'éditeur de source.
procedure TForm1.RadioButton1Change(Sender: TObject);
begin
GroupBox2.Visible:=Radiobutton2.Checked;
end;
- et un code comme suit pour les boutons :
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;
- Démarrez votre programme, il pourrait ressembler à ceci :
-> 
Voir aussi
