TButton/ja: what changed

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

Old	New		Line
1	1		\>\> [[LCL Components]] \>\> TButton\
2	2		このページでは、[[doc:lcl/stdctrls/tbutton.html\|TButton]] コンポーネントの使い方を説明します。\
3	3		（以下の記述で「○○をクリック」とあればそれは左クリックのことです。右クリックの場合はそのように記述します。）
4	4
5	5		## IDE上の表示
6	6
7	7		「TButoon」は「Standard」タブの4番目のコントロールであり「"OK"のある四角い押しボタン」のアイコンで表示されています。
8	8
9		-	~~<figure>~~
10		-	~~<img src="TButtonStandardpalette.png" title="TButtonStandardpalette.png" />~~
11		-	~~<figcaption>TButtonStandardpalette.png</figcaption>~~
12		-	~~</figure>~~
	9	+	![](/wiki-images/4/49/TButtonStandardpalette.png)
13	10
14	11		## 使い方
15	12
16	13		[[doc:lcl/stdctrls/tbutton.html\|TButton]] は [[TForm/ja\|TForm]] におけるもっとも基本的なコントロールです。ボタンをマウスでクリックすることで(または\[Tab\]キーを押してボタンが選択された状態にして\[Enter\]キーで押すことで)、何らかのアクションが実行されます。この「ボタンをクリックすること」を「イベント」と呼びます。クリック後に何かしらの処理をするためには、「イベントハンドラ（イベントの処理方法）」を記述する必要があります。\
17		-	\
	14	+
18	15		「ボタン」コントロールをフォームに追加するには、[[Standard tab/ja\|Standardタブ]] コンポーネントパレットの左から4番目の TButton ("OK" と書かれた四角形のボタン) を押して選択し、ボタンを配置したいフォームの上でクリックしてください。\
19		-	\
	16	+
20	17		マウスクリックに対するイベントハンドラは、フォーム上に置いたボタンをダブルクリックすることで (または、オブジェクトインスペクタの「イベント」タブから、OnClick というイベントを選択することで) 簡単に作ることができます。 Form1フォーム上のButton1 のイベントハンドラは、以下のような記述になります。:
21	18
22	19		``` pascal
23	20		procedure TForm1.Button1Click(Sender: TObject);
24	21		begin
25	22
26	23		end;
27	24		```
28	25
29	26		次に、begin と end の間に、Button1 をクリックしたときの処理を書きましょう。
30	27
31	28		ほとんどすべての初心者用チュートリアルで、 Lazarus を用いた [[Glossary\|オブジェクト指向プログラミング]] の手始めとして TButtons が使われています。\
32	29		以下に示すチュートリアルもボタンの使い方を理解するためにおすすめです。:
33	30
34	31		- [[Form Tutorial/ja\|初めてのGUIアプリケーション]] ：初心者のためのチュートリアル
35	32		- [[Lazarus Tutorial/ja\|Lazarusでプログラムをはじめてみよう]] ： Lazarus のチュートリアル
36	33		- [[Object Oriented Programming with FreePascal and Lazarus\|Programming Example]] ： Free Pascal と Lazarus を用いたオブジェクト指向プログラミングのチュートリアル
37	34
38	35		#### 簡単な例
39	36
40	37		- メニューの新規プロジェクトからアプリケーションを選択し、表示されたフォーム上に　TButton を置きます。
41	38		- フォーム上に置いた Button1 をダブルクリックしてください。( Button1 のためのデフォルトのイベントハンドラである OnClick が生成され、ソースエディタが開きます。)
42	39		- イベントハンドラとして以下のコードを追加します。:
43	40
44	41		``` pascal
45	42		procedure TForm1.Button1Click(Sender: TObject);
46	43		begin
47	44		ShowMessage('Lazarus のおかげでよい一日だ。'); //ボタンを押すと、左に書いた文字列がメッセージダイアログで表示されます。
48	45		end;
49	46		```
50	47
51	48		- プログラムを実行しましょう。(\<F9\>キーを押してください。)
52	49
53	50		## ボタンの自動生成
54	51
55	52		ときにはボタン（や他のコンポーネント）を Lazarus のフォームデザイナから作るのではなく、プログラム実行時に、動的に生成する方が簡単な場合があります。この方法は特にフォームにボタンを連続して配置する必要があるときに役立ちます。
56	53
57	54		以下の例でその方法を学びましょう。(簡単な計算機のアプリです):
58	55
59	56		- メニューの新規プロジェクトからアプリケーションを選択し、新しい Form1 からなるまっさらな [[Form Tutorial/ja\|GUI アプリケーション]] を作ってください。そして、 [[Uses/ja\|Use 宣言部]] に StdCtrls を追加します。( TButton コンポーネントは StdCtrls パッケージに含まれるため。)
60	57		- Form1 の OnCreate イベントハンドラを作ります。(オブジェクトインスペクタの「イベント」タブから OnCreate を探して、 \[...\] ボタンをクリックしてください。)
61	58		- 以下のコードを追加します。:
62	59
63	60		``` pascal
64	61		procedure TForm1.FormCreate(Sender: TObject);
65	62		var
66	63		i: Integer;
67	64		aButton: TButton;
68	65		begin
69	66		for i:=0 to 9 do begin // 以下を 10回繰り返し、ボタンを 10個作ります。
70	67		aButton:=TButton.Create(Self); // TButtonコントロールを生成します。所有者(オーナー)は、ボタンを生成する場所である Form1 とします。
71	68		aButton.Parent:=Self; // ボタンをどこに表示するかを決めます。(親コントロールは Form1 とします)
72	69		aButton.Width:=aButton.Height; // ボタンの幅をボタンの高さと同じにします。
73	70		aButton.Left:=i*aButton.Width; // ボタンの左端の位置を設定します。
74	71		aButton.Caption:=IntToStr(i); // ボタンのキャプション(0～9)を設定します。
75	72		aButton.OnClick:=@aButtonClick; // ボタンを押したときのイベントハンドラを設定します。 -> イベントハンドラはこの後で作成します。
76	73		end;
77	74		Self.Height:=aButton.Height; // フォームの高さをボタンの高さと同じにします。
78	75		Self.Width:=aButton.Width*10; // フォームの幅を、ボタン10個の幅の合計と同じにします。
79	76		end;
80	77		```
81	78
82	79		- つぎにボタンを押したときのイベントハンドラを作成する必要があります。
83	80		- ソースエディタから TForm1 クラスの `private` 部を探します。
84	81		- `procedure aButtonClick(Sender: TObject);` を追加して \[CTRL\] + \[Shift\] + \[c\] キーを押してください。コード補完機能が働き `TForm1.aButtonClick(Sender: TObject);` プロシージャが生成されます。
85	82		- aButtonClick プロシージャに以下のコードを追加します。:
86	83
87	84		``` pascal
88	85		procedure TForm1.aButtonClick(Sender: TObject);
89	86		const
90	87		Cnt: Integer = 0;
91	88		var
92	89		i: Integer;
93	90		begin
94	91		if (Sender is TButton) // aButtonClick プロシージャを呼び出したのが TButton のイベントハンドラかどうか？
95	92		and TryStrToInt(TButton(Sender).Caption, i) then // 　　同時に、押したボタンのキャプションを整数値に変換できるかどうか？
96	93		begin
97	94		Cnt:=Cnt + i; // 合計値カウンターに押されたボタンのキャプションの値を追加します。
98	95		Caption:='合計: '+IntToStr(Cnt); // 合計値をフォームのキャプションに表示します。
99	96		end;
100	97		end;
101	98		```
102	99
103	100		- プログラムを実行しましょう。
104	101
105	102		> Note: 設置したボタンには、あなたが考えるどんなイベントハンドラでも設定できます。そのイベントハンドラが `<class>.<プロシージャ名>(Sender: TObject);` のプロシージャの形を持つ限り。このようにして、他のクラスからでもボタンを使うことができます。
106	103
107	104		## 日本語訳にあたっての追加
108	105
109	106		- 日本語訳は 2016年5月に作成し、 Windows8.1、64bit、Lazarus v1.6 でのコードの動作を確認しました。
110	107		- コードが動作しない場合、コードが下記(動作を確認したコード)のようになっているか確認してください。
111	108
112	109		``` pascal
113	110		unit Unit1;
114	111
115	112		{$mode objfpc}{$H+}
116	113
117	114		interface
118	115
119	116		uses
120	117		Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
121	118
122	119		type
123	120
124	121		{ TForm1 }
125	122
126	123		TForm1 = class(TForm)
127	124		procedure FormCreate(Sender: TObject);
128	125		private
129	126		{ private declarations }
130	127		procedure aButtonClick(Sender: TObject);
131	128		public
132	129		{ public declarations }
133	130		end;
134	131
135	132		var
136	133		Form1: TForm1;
137	134
138	135		implementation
139	136
140	137		{$R *.lfm}
141	138
142	139		{ TForm1 }
143	140
144	141		procedure TForm1.FormCreate(Sender: TObject);
145	142		var
146	143		i: Integer;
147	144		aButton: TButton;
148	145		begin
149	146		for i:=0 to 9 do begin // 以下を 10回繰り返し、ボタンを 10個作ります。
150	147		aButton:=TButton.Create(Self); // TButtonコントロールを生成します。所有者(オーナー)は、ボタンを生成する場所である Form1 とします。
151	148		aButton.Parent:=Self; // ボタンをどこに表示するかを決めます。(親コントロールは Form1 とします)
152	149		aButton.Width:=aButton.Height; // ボタンの幅をボタンの高さと同じにします。
153	150		aButton.Left:=i*aButton.Width; // ボタンの左端の位置を設定します。
154	151		aButton.Caption:=IntToStr(i); // ボタンのキャプション(0～9)を設定します。
155	152		aButton.OnClick:=@aButtonClick; // ボタンを押したときのイベントハンドラを設定します。 -> イベントハンドラはこの後で作成します。
156	153		end;
157	154		Self.Height:=aButton.Height; // フォームの高さをボタンの高さと同じにします。
158	155		Self.Width:=aButton.Width*10; // フォームの幅を、ボタン10個の幅の合計と同じにします。
159	156		end;
160	157
161	158		procedure TForm1.aButtonClick(Sender: TObject);
162	159		const
163	160		Cnt: Integer = 0;
164	161		var
165	162		i: Integer;
166	163		begin
167	164		if (Sender is TButton) // aButtonClick プロシージャが、 TButton のイベントハンドラから呼び出されたか？
168	165		and TryStrToInt(TButton(Sender).Caption, i) then // それから、押されたボタンのキャプションを整数値に変換できるか？
169	166		begin
170	167		Cnt:=Cnt + i; // 合計値カウンターに押されたボタンのキャプションの値を追加します。
171	168		Caption:='合計: '+IntToStr(Cnt); // 合計値をフォームのキャプションに表示します。
172	169		end;
173	170		end;
174	171
175	172		end.
176	173		```
177	174
178	175		## 以下もご参照ください
179	176
180	177		[[TBitBtn/ja]]\
181	178		[[TSpeedButton/ja]]
182	179
183	180		---
184	181		From the Free Pascal wiki, page "TButton/ja", as it stood on 2024-03-20 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