TRadioButton/de

Gegenüberstellung einiger TRadioButton und einer TRadioGroup, jeweils mit den wichtigsten Eigenschaften in der Infobox.

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

Beschreibung

TRadioButton ist ein Steuerelement, das eine "eins von mehreren"-Auswahl ermöglicht und alle möglichen Optionen gleichzeitig präsentiert. Prinzipiell ist jeder RadioButton eine eigene Komponente und kann frei platziert und in der Darstellung verändert werden ohne die anderen zu beeinflussen. Alternativ bieten sich TRadioGroup oder andere Darstellungsformen wie TComboBox oder TListBox an, die die Anordnung der Elemente automatisch vereinheitlichen können und ebenfalls eine Auswahl "eine von mehreren" abbilden.

Die wichtigste Eigenschaft zur Steuerung des TRadioButton ist Checked (Boolean) die sowohl lesbar als auch schreibbar ist und angibt ob das Steuerelement als "ausgewählt" dargestellt werden soll oder nicht.

Die Gruppierung der Radiobuttons ist abhängig von ihrer Parent Eigenschaft, also zu welchem Container-Objekt sie gehören. Es muss keine ButtonGroup Eigenschaft extra eingestellt werden. Die Eigenschaft Checked wird automatisch richtig eingestellt unter allen Radiobuttons im selben Container, sodass immer nur einer ausgewählt ist. Wenn mehrere unabhängige Auswahlgruppen benötigt werden, können RadioButtons z.B. in einem TPanel gruppiert werden.

Verwendung

Um TRadioButtons auf einem Formular zu nutzen, kann man sie einfach auf der Komponentenpalette Standard auswählen und, mit einem Klick auf das Formular, platzieren.
Es macht zumeist keinen Sinn einen einzelnen RadioButton zu nutzen, da RadioButtons als Auswahlelemente dienen sollen. Daher kann man statt einzelner Radiobuttons auch eine TRadioGroup verwenden.
Sie können überall in Ihrem Quellcode den Status der Radiobuttons, ob aktiv oder inaktiv, mit Status := <RadioButton>.Checked; abfragen. Dabei können Sie Checked wie ein normalen Boolean benutzen. Somit ist auch die Zuweisung <RadioButton>.Checked := True; möglich.

Ein einfaches Beispiel

• Erstellen Sie eine neue Anwendung und legen Sie auf dem Formular drei TRadioButtons ab.
• Ändern Sie im Objektinspektor im Reiter Eigenschaften die Namen der RadioButton1..3 zu rbRed , rbGreen und rbBlue.
• Entsprechend ändern Sie dort die Captions der Radiobuttons zu Rot , Grün und Blau.
• Fügen Sie Ihrem Formular noch ein TButton hinzu und ändern seine Beschriftung (Caption) zu Neu Zeichnen und seinen Namen zu btnPaint.
• Erstellen Sie den OnClick Eventhandler für den TButton, indem Sie im Objektinspektor auf den Reiter Ereignisse klicken, das Ereignis OnClick auswählen und den Button [...] klicken oder den Button im Formular doppelklicken.
• Fügen Sie folgenden Code hinzu:

procedure TForm1.btnPaintClick(Sender: TObject);
    begin
      if rbRed.Checked   then Color:=clRed;
      if rbGreen.Checked then Color:=clLime;
      if rbBlue.Checked  then Color:=clBlue;
    end;

• Starten Sie Ihr Programm, es sollte ungefähr so aussehen:

->

Verwendung eines Ereignisses

Der Unterschied zu dem vorherigen Beispiel besteht darin, dass wir das Formular nicht über einen Buttonklick neu zeichnen lassen, sondern schon durch das Anklicken eines der Radiobuttons selber.

Sie können das vorhergehende Beispiel modifizieren, indem Sie den Button und dessen OnClick -Eventhandler im Quelltext löschen. Sie können aber auch einfach ein neues Beispiel erstellen:

• Erstellen Sie eine neue Anwendung und legen Sie auf dem Formular drei TRadioButtons ab.
• Ändern Sie im Objektinspektor im Reiter Eigenschaften die Namen der RadioButton1..3 zu rbRed , rbGreen und rbBlue.
• Entsprechend ändern Sie dort die Captions der Radiobuttons zu Rot , Grün und Blau.
• Erstellen Sie für jeden Radiobutton einen Onchange -Eventhandler, indem Sie im Objektinspektor auf den Reiter Ereignisse klicken, das Ereignis Onchange auswählen und den Button [...] klicken. Sie können aber auch den jeweiligen Radiobutton doppelklicken.
• Lassen Sie im Eventhandler OnChange der Radiobuttons die Farben des Formulars, gemäß geklickten Radiobutton, ändern:

procedure TForm1.rbRedChange(Sender: TObject);
    begin
      Self.Color:=clRed;    //mit "Self" wählt man das Objekt, in der sich die Methode befindet (Methode: rbRedChange / Objekt: Form1)
    end;
    
    procedure TForm1.rbGreenChange(Sender: TObject);
    begin
      Form1.Color:=clLime;  //man kann auch das Objekt "Form1" direkt wählen, ist aber ungünstig, 
                            //da dann kein weiteres Objekt der Klasse "TForm1" erstellt werden kann
    end;
    
    procedure TForm1.rbBlueChange(Sender: TObject);
    begin
      Color:=clBlue;        //oder man lässt "Self" weg und der Compiler erkennt automatisch das eigene Objekt
    end;

• Starten Sie Ihr Programm, es wird ungefähr so aussehen:

->

Gruppierung

Fügen Sie Radiobuttons Ihrem Formular hinzu, ist der Parent (Steuerelement, welches den Radiobutton beinhaltet) Ihr Formular. Bei jedem Setzen (egal, ob per Code oder Nutzer per Buttonklick) eines <RadioButton>.Checked:=True; wird geprüft, ob noch ein anderer Radiobutton, mit diesem Parent, ausgewählt ist und falls ja, dieser auf nicht ausgewählt gesetzt.
Wollen Sie trotzdem mehrere Radiobuttons auf Ihrem Formular nutzen, die verschiedene, unabhängige Auswahlmöglichkeiten bieten sollen, müssen Sie die Radiobuttons gruppieren. Dazu gibt es eine fertige Komponente TRadioGroup oder sie gruppieren Sie selber auf einem Control (z.B. TPanel, TGroupBox, TNoteBook, TPageControl etc.).

Folgendes kleines Beispiel zeigt Ihnen, wie sie Radiobuttons selber gruppieren können:

Sie können dazu das Beispiel Ein einfaches Beispiel umfunktionieren oder ein neues erstellen:

• Als erstes müssten Sie eine TGroupBox von der Standard Komponentenpalette auf Ihr Formular platzieren.
• Dieser GroupBox geben Sie den Namen gbColor und Caption Farbe.
• Nun ordnen Sie dieser Groupbox die Radiobuttons rbRed , rbGreen und rbBlue unter:
  • Im veränderten Projekt können Sie nacheinander die Radiobuttons im Objektinspektor per Drag and Drop auf gbColor verschieben.
  • In einem neuen Projekt können Sie nacheinander die drei Radiobuttons einfügen, indem Sie zum Einfügen in die Groupbox klicken, die Namen rbRed , rbGreen und rbBlue vergeben und die Captions zu Rot , Grün und Blau ändern.
• Nun platzieren Sie eine zweite TGroupBox auf Ihrem Formular mit dem Namen gbBrightness und der Caption Helligkeit.
• Fügen Sie dieser Groupbox ebenfalls drei Radiobuttons hinzu und geben diesen die Namen rbBrightDark , rbBrightMedDark und rbBrightBright und die Captions Dunkel , Halbdunkel und Hell.
• Falls Sie eine neue Anwendung erstellt haben, müssen Sie dem Formular noch einen Button mit dem Namen btnPaint und Caption Neu Zeichnen hinzufügen.
• Im OnClick -Eventhandler von btnPaint ändern Sie den Code zu:

procedure TForm1.btnPaintClick(Sender: TObject);
    begin
      if rbRed.Checked   then Color:=Brightness or clRed;
      if rbGreen.Checked then Color:=Brightness or clLime;
      if rbBlue.Checked  then Color:=Brightness or clBlue;  
    end;

• Nun erstellen Sie noch die Function Brightness , indem Sie function Brightness: TColor; im private -Abschnitt von TForm1 eingeben und [Ctrl]+[Shift]+[c] drücken (Codevervollständigung). Es wird die Function erstellt. Geben Sie dort folgenden Code ein:

function TForm1.Brightness: TColor;
    begin
      Result:=0;
      if rbBrightMedDark.Checked then Result:=$888888;
      if rbBrightBright.Checked  then Result:=$DDDDDD;
    end;

• Starten Sie Ihr Programm, sie können die gruppierten Radiobuttons voneinander unabhängig einsetzen, so könnte es aussehen:

->

Siehe auch

• TRadioGroup - Gruppierung von RadioButtons
• TToggleBox - An/Aus-Zustandsdarstellung über Schaltflächen (gedrückt/nicht gedrückt)
• TCheckBox - Alternative mit Häkchen die einen An/Aus-Zustand einer einzelnen Option steuern können
• TCheckGroup - Ähnlich der TRadioGroup aber mit Häkchen als Auswahl-Elemente
• TListBox - Alternative Darstellung einer Liste zur Auswahl eines Elementes (erlaubt auch Multi-Select)
• TPanel - Generell zur Gruppierung von Elementen verwendbar (Container)
• TGroupBox - Generell zur Gruppierung in einem Kasten mit Überschrift (Container)
• TFlowPanel - Generelle Gruppierung mit automatischer, fliessenden Aneinanderreihung (Container mit "Zeilenumbrüchen") (siehe TFlowPanel (en))
• TComboBox - Alternatives Element zur Auswahl einer einzelnen Option aus einer ausklappbaren Liste

From the Free Pascal wiki, page "TRadioButton/de", as the Internet Archive kept it on 2025-03-26, last changed on 2024-11-22. 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.