TRadioGroup/de: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		Diese Seite erklärt, wie man die [[doc:lcl/extctrls/tradiogroup.html\|TRadioGroup]] Komponente verwendet. Auf etwas klicken bedeutet immer ein Linksklick, ein Rechtsklick wird explizit erwähnt.
2	2
3	3		## Beschreibung
4	4
5	5		Eine Gruppe RadioButtons, aus dieser der Benutzer eine Auswahl treffen kann. Die Komponente ist wie eine [[TGroupBox/de\|TGroupBox]] mit integrierten [[TRadioButton/de\|TRadioButtons]].
6	6
7		-	~~<figure>~~
8		-	~~<img src="Comp_Standard_TRadioGroup.png" title="Comp_Standard_TRadioGroup.png" />~~
9		-	~~<figcaption>Comp_Standard_TRadioGroup.png</figcaption>~~
10		-	~~</figure>~~
	7	+	![](/wiki-images/7/79/Comp_Standard_TRadioGroup.png)
11	8
12	9		## Verwendung
13	10
14	11		Um eine [[doc:lcl/extctrls/tradiogroup.html\|TRadioGroup]] auf einem [[TForm/de\|Formular]] zu nutzen, kann man sie einfach auf der Komponentenpalette Standard auswählen und, mit einem Klick auf das Formular, platzieren.\
15	12
16	13		#### Kleines Beispiel
17	14
18	15		Es sollen geometrische Figuren zufällig und in Abhängigkeit der TRadioGroups auf das Formular gezeichnet werden. RadioGroup1 bestimmt die Form, RadioGroup2 die Anzahl.
19	16
20	17		- erstellen Sie eine neue Anwendung und platzieren Sie zwei TRadioGroups auf Ihrem Formular
21	18		- ändern Sie im Objektinspektor die Eigenschaft Name von RadioGroup1 zu rgShape und die von RadioGroup2 zu rgCount
22	19		- ändern Sie identisch Caption von rgShape zu Shape und die von rgCount zu Count
23	20		- fügen Sie die Radiobuttons für rgShape hinzu:
24	21		- wählen Sie im Objektinspektor die Eigenschaft Items von rgShape
25	22		- klicken Sie auf den Button \[...\], der Zeichenketteneditor öffnet sich
26	23		- Schreiben Sie untereinander Lines Rectangles Ellipses und beenden Sie die Eingabe mit Button OK
27	24		- fügen Sie identisch die Radiobuttons für rgCount hinzu (untereinander geschrieben): 1 5 10 20 50 100
28	25		- 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
29	26		- erstellen Sie den OnClick Eventhandler von rgShape, indem Sie rgShape doppelklicken
30	27		- nutzen Sie diesen Eventhandler ebenfalls für rgCount:
31	28		- wählen Sie im Objektinspektor rgCount
32	29		- nun wählen Sie im Objektinspektor den Reiter Ereignisse
33	30		- gehen Sie zum Ereignis OnClick und wählen in der daneben befindlichen Combobox rgShapeClick aus
34	31		- immer, wenn rgShape oder rgCount geklickt wird, soll das Formular neu gezeichnet werden, schreiben Sie daher folgenden Code in den Eventhandler:
35	32
36	33		``` pascal
37	34		procedure TForm1.rgShapeClick(Sender: TObject);
38	35		begin
39	36		Repaint;
40	37		end;
41	38		```
42	39
43	40		- immer wenn das Formular neu gezeichnet wird, sollen die geometrischen Formen gezeichnet werden:
44	41		- gehen Sie im Objektinspektor auf Form1
45	42		- wählen Sie den Reiter Ereignisse
46	43		- klicken Sie auf den Button \[...\] neben dem Ereignis OnPaint
47	44		- der Eventhandler wird erstellt, tragen Sie folgenden Code ein:
48	45
49	46		``` pascal
50	47		procedure TForm1.FormPaint(Sender: TObject);
51	48		var
52	49		i: Integer;
53	50		begin
54	51		if TryStrToInt(rgCount.Items[rgCount.ItemIndex], i) then
55	52		for i := 1 to i do begin
56	53		Canvas.Pen.Color := Random($1000000);
57	54		Canvas.Brush.Color := Random($1000000);
58	55		case rgShape.Items[rgShape.ItemIndex] of
59	56		'Lines': Canvas.Line( Random(ClientWidth), Random(ClientHeight), Random(ClientWidth), Random(ClientHeight));
60	57		'Rectangles': Canvas.Rectangle(Random(ClientWidth), Random(ClientHeight), Random(ClientWidth), Random(ClientHeight));
61	58		'Ellipses': Canvas.Ellipse( Random(ClientWidth), Random(ClientHeight), Random(ClientWidth), Random(ClientHeight));
62	59		end;
63	60		end;
64	61		end;
65	62		```
66	63
67	64		- starten Sie Ihre Anwendung, so könnte sie aussehen:
68	65
69		-	~~<figure>~~
70		-	~~<img src="ExampleTRadioGroup.png" title="ExampleTRadioGroup.png" />~~
71		-	~~<figcaption>ExampleTRadioGroup.png</figcaption>~~
72		-	~~</figure>~~
	66	+	![](/wiki-images/6/6a/ExampleTRadioGroup.png)
73	67
74	68		## Siehe auch
75	69
76	70		- [[TRadioButton/de\|TRadioButton]]
77	71		- [[TGroupBox/de\|TGroupBox]]
78	72
79	73		---
80	74		From the Free Pascal wiki, page "TRadioGroup/de", as it stood on 2020-03-01 after a change by Trev, 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](/wiki-contact).

Back to history