TButton/ja: what changed

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

Title: TButton/ja

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