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

• Doc. TGroupBox
• TPairSplitter
• TNotebook
• TPageControl
• TTabControl

From the Free Pascal wiki, page "TGroupBox/fr", as it stood on 2020-03-01 after a change by GAN, 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.