TRadioGroup/de
│
Deutsch (de) │
English (en) │
suomi (fi) │
français (fr) │
日本語 (ja) │
русский (ru) │
Diese Seite erklärt, wie man die TRadioGroup Komponente verwendet. Auf etwas klicken bedeutet immer ein Linksklick, ein Rechtsklick wird explizit erwähnt.
Beschreibung
Eine Gruppe RadioButtons, aus dieser der Benutzer eine Auswahl treffen kann. Die Komponente ist wie eine TGroupBox mit integrierten TRadioButtons.
Verwendung
Um eine TRadioGroup 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
Es sollen geometrische Figuren zufällig und in Abhängigkeit der TRadioGroups auf das Formular gezeichnet werden. RadioGroup1 bestimmt die Form, RadioGroup2 die Anzahl.
- erstellen Sie eine neue Anwendung und platzieren Sie zwei TRadioGroups auf Ihrem Formular
- ändern Sie im Objektinspektor die Eigenschaft Name von RadioGroup1 zu rgShape und die von RadioGroup2 zu rgCount
- ändern Sie identisch Caption von rgShape zu Shape und die von rgCount zu Count
- fügen Sie die Radiobuttons für rgShape hinzu:
- wählen Sie im Objektinspektor die Eigenschaft Items von rgShape
- klicken Sie auf den Button [...], der Zeichenketteneditor öffnet sich
- Schreiben Sie untereinander Lines Rectangles Ellipses und beenden Sie die Eingabe mit Button OK
- fügen Sie identisch die Radiobuttons für rgCount hinzu (untereinander geschrieben): 1 5 10 20 50 100
- setzen Sie jeweils den ersten Radiobutton als aktuell gewählt, indem Sie im Objektinspektor die Eigenschaft ItemIndex von rgShape und rgCount von -1 auf 0 stellen
- erstellen Sie den OnClick Eventhandler von rgShape, indem Sie rgShape doppelklicken
- nutzen Sie diesen Eventhandler ebenfalls für rgCount:
- wählen Sie im Objektinspektor rgCount
- nun wählen Sie im Objektinspektor den Reiter Ereignisse
- gehen Sie zum Ereignis OnClick und wählen in der daneben befindlichen Combobox rgShapeClick aus
- immer, wenn rgShape oder rgCount geklickt wird, soll das Formular neu gezeichnet werden, schreiben Sie daher folgenden Code in den Eventhandler:
procedure TForm1.rgShapeClick(Sender: TObject);
begin
Repaint;
end;
- immer wenn das Formular neu gezeichnet wird, sollen die geometrischen Formen gezeichnet werden:
- gehen Sie im Objektinspektor auf Form1
- wählen Sie den Reiter Ereignisse
- klicken Sie auf den Button [...] neben dem Ereignis OnPaint
- der Eventhandler wird erstellt, tragen Sie folgenden Code ein:
procedure TForm1.FormPaint(Sender: TObject);
var
i: Integer;
begin
if TryStrToInt(rgCount.Items[rgCount.ItemIndex], i) then
for i := 1 to i do begin
Canvas.Pen.Color := Random($1000000);
Canvas.Brush.Color := Random($1000000);
case rgShape.Items[rgShape.ItemIndex] of
'Lines': Canvas.Line( Random(ClientWidth), Random(ClientHeight), Random(ClientWidth), Random(ClientHeight));
'Rectangles': Canvas.Rectangle(Random(ClientWidth), Random(ClientHeight), Random(ClientWidth), Random(ClientHeight));
'Ellipses': Canvas.Ellipse( Random(ClientWidth), Random(ClientHeight), Random(ClientWidth), Random(ClientHeight));
end;
end;
end;
- starten Sie Ihre Anwendung, so könnte sie aussehen:
Siehe auch
Gehe zurück zu: LCL Components | — Komponente zuvor: TGroupBox/de | Nächste Komponente: TCheckGroup/de |