TGroupBox/de

│ Deutsch (de) │ English (en) │ suomi (fi) │ français (fr) │ 日本語 (ja) │ русский (ru) │

Diese Seite erklärt, wie man die TGroupBox Komponente verwendet. Auf etwas klicken bedeutet immer ein Linksklick, ein Rechtsklick wird explizit erwähnt.

Beschreibung

Ein Container, mit dem eine Anzahl von Objekten physisch und konzeptionell auf einem Formular gruppiert werden können.

Verwendung

Um eine TGroupBox auf einem Formular zu nutzen, kann man sie einfach auf der Komponentenpalette Standard auswählen und, mit einem Klick auf das Formular, platzieren.

Kleines Beispiel

• erstellen Sie eine neue Anwendung und platzieren Sie zwei TGroupBox auf Ihrem Formular
• in GroupBox1 legen Sie einen TButton Button1 und in GroupBox2 einen TButton Button2 ab
• falls Sie versehentlich beim Buttoneinfügen neben die Groupbox geklickt haben, können Sie den TButton auch hinterher im Objektinspektor per Drag and Drop in dieser noch zuordnen
• legen Sie auf Ihrem Formular (außerhalb der Groupboxen) noch zwei TRadioButton ab
• ändern Sie im Objektinspektor die Caption von RadioButton1 zu Benutzer und von RadioButton2 zu Administrator
• ändern Sie die Eigenschaft Checked von RadioButton2 nach True
• erstellen Sie den OnChange Eventhandler von RadioButton1, indem Sie RadioButton1 doppelklicken
• nutzen Sie diesen Eventhandler ebenfalls für RadioButton2
  • wählen Sie im Objektinspektor RadioButton2
  • nun wählen Sie im Objektinspektor den Reiter Ereignisse
  • gehen Sie zum Ereignis OnChange und wählen in der daneben befindlichen Combobox RadioButton1Change aus
• machen Sie GroupBox2 für Benutzer unsichtbar per Wahl im RadioButton
  • schreiben Sie im Quelltexteditor folgende Zeile in den Eventhandler der RadioButtons:

procedure TForm1.RadioButton1Change(Sender: TObject);
begin
  GroupBox2.Visible := Radiobutton2.Checked;
end;

• fügen Sie noch die Eventhandler der Buttons hinzu und etwas Code wie:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Benutzer und Administratoren können diesen Button klicken');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage('Nur Administratoren können diesen Button klicken');
end;

• Starten Sie Ihr Programm, so könnte es aussehen:

->

Siehe auch

TPanel
TPairSplitter
TNotebook
TPageControl
TTabControl

---

Gehe zurück zu: LCL Components

— Komponente zuvor: TScrollBar/de

Nächste Komponente: TRadioGroup/de

--Michl 08:53, 25 June 2014 (CEST)