TRadioGroup/ja: what changed

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

Old	New		Line
1	1		TRadioGroup![](/wiki-images/e/e8/Tradiogroup.png)は、関連するが相互に排他的な[[TRadioButton/ja\|TRadioButtonのグループであり]]、ユーザーに対して選択肢の1つを選択する必要がある。それは、統合された[[TRadioButton/ja\|TRadioButtonsを]]持つ[[TGroupBox/ja\|TGroupBoxのようなものである]]。
2	2
3	3		## 使い方
4	4
5	5		[[TForm\|FormでTRadioGroupを]]使用するには、単純に[[Component Palette/ja\|Componentパレットの]][[Standard tab/ja\|Standardタブでそれを]]選択し、フォームをクリックして配置します。
6	6
7	7		### 例
8	8
9	9		ジオメトリック図形は、TRadioGroupによってフォームにランダムに描画され、表示される。最初のRadioGroupは図形を決定し、2番目のRadioGroupは個数を決定する。
10	10
11	11		- 新しいアプリケーションを作成し、フォームに2つのTRadioGroupを配置する。
12	12		- オブジェクトインスペクタで、RadioGroup1のNameプロパティをrgShapeに、RadioGroup2のNameプロパティをrgCountに変更する。
13	13		- rgShapeのCaptionをShapeに、rgCountのCaptionをCountに変更する。
14	14		- rgShapeのためのラジオボタンを追加する:
15	15		- オブジェクトインスペクタで、rgShapeのItemsプロパティを選択する。
16	16		- \[...\]ボタンをクリックすると、文字列エディタが開く。
17	17		- それぞれLines, Rectangles, Ellipsesと入力し、OKボタンをクリックしてエントリを完了する。
18	18		- rgCountのためにも同様にラジオボタンを追加する(以下のように入力)1、5、10、20、50、100
19	19		- rgShapeとrgCountのItemIndexプロパティをそれぞれ-1から0に設定して、最初のRadioButtonをcurrently selectedにする。
20	20		- rgShapeをダブルクリックして、rgShapeのOnClickイベントハンドラを作成する。
21	21		- 同じイベントハンドラをrgCountにも使用する。
22	22		- オブジェクトインスペクタでrgCountを選択する。
23	23		- ここで、オブジェクトインスペクタでEventsタブを選択してください。
24	24		- OnClickイベントに移動し、隣のコンボボックスでrgShapeClickを選択する。
25	25		- rgShapeまたはrgCountがクリックされるたびに、フォームが再描画されるようにするために、次のコードをイベントハンドラに記述する:
26	26
27	27		``` pascal
28	28		procedure TForm1.rgShapeClick(Sender: TObject);
29	29		begin
30	30		Repaint;
31	31		end;
32	32		```
33	33
34	34		- フォームが再描画されるたびに、図形を描画する必要がある。
35	35		- オブジェクトインスペクタで Form1 を選択する。
36	36		- Eventsタブを選択する。
37	37		- OnPaintイベントの横にある \[...\] ボタンをクリックする。
38	38		- ハンドラが作成される。以下のコードを入力する:
39	39
40	40		``` pascal
41	41		procedure TForm1.FormPaint(Sender: TObject);
42	42		var
43	43		i: Integer;
44	44		begin
45	45		if TryStrToInt(rgCount.Items[rgCount.ItemIndex], i) then
46	46		for i:=1 to i do begin
47	47		Canvas.Pen.Color:=Random($1000000);
48	48		Canvas.Brush.Color:=Random($1000000);
49	49		case rgShape.Items[rgShape.ItemIndex] of
50	50		'Lines': Canvas.Line(Random(ClientWidth), Random(ClientHeight), Random(ClientWidth), Random(ClientHeight));
51	51		'Rectangles': Canvas.Rectangle(Random(ClientWidth), Random(ClientHeight), Random(ClientWidth), Random(ClientHeight));
52	52		'Ellipses': Canvas.Ellipse(Random(ClientWidth), Random(ClientHeight), Random(ClientWidth), Random(ClientHeight));
53	53		end;
54	54		end;
55	55		end;
56	56		```
57	57
58	58		- プログラムを実行すると、以下のように見えるだろう:
59	59
60		-	~~<figure>~~
61		-	~~<img src="ExampleTRadioGroup.png" title="ExampleTRadioGroup.png" />~~
62		-	~~<figcaption>ExampleTRadioGroup.png</figcaption>~~
63		-	~~</figure>~~
	60	+	![](/wiki-images/6/6a/ExampleTRadioGroup.png)
64	61
65	62		## 以下も参照のこと
66	63
67	64		- [[doc:lcl/extctrls/tradiogroup.html\|TRadioGroup doc]]
68	65		- [[TRadioButton/ja]]
69	66		- [[TGroupBox/ja]]
70	67
71	68		---
72	69		From the Free Pascal wiki, page "TRadioGroup/ja", as it stood on 2024-03-24 after a change by Ariben, 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