概要:2数を足し、結果を表示するプログラム。
<作業>
1.「新規作成」「アプリケーション」で新規プロジェクトを開始。
2.ユニットをUsample2、プロジェクトをSample2で保存する。
3.フォームのCaptionプロパティーを「2数の和」に変更。
4.フォーム上に次の各コンポーネントを配置する。
Label3個、bottun3個、Edit2個、Panel1個
5.各コンポーネントのプロパティーを設定。
6.[終了]ボタンをダブルクリック、イベントハンドラを記述。(ソース参照)
7.[計算]ボタンをダブルクリック。イベントハンドラを記述。(ソース参照)
8.[クリア]ボタンをダブルクリック。イベントハンドラを記述。(ソース参照)
9.プログラム起動時、Edit1にフォーカスを当てる(カーソル点滅)ため、Edit1のTabOrderプロパティーを0(ゼロ)に設定。
10.[Eneter]で[OK]、[ESC]で[クリア]できるようにする。
・フォームの[計算]ボタンをクリック、アクティブにし、オブジェクトインスペクタでDefaultプロパティの値をTrueにする。
・同様[クリア]ボタンのCancelプロパティーをtrueにする。
11.このままでは[ESC]キーを押すと[クリア]が実行され、すべてのデータがクリアされてしまう。これをOnKeyPressで設定する。
12.フォームの[クリア]をクリック、アクティブにする。
13.オブジェクトインスペクタでCancelプロパティーの値欄をクリック。trueがfalseに変わる。
14.[A]Editをクリック。
15.オブジェクトインスペクタでイベントページを表示させる。
16.OnKeyPressイベントの右欄をダブルクリックする。
17.OnKeyPressのイベントハンドラに次のコードを記述する。
if(Key==VK_ESCAPE) { A->Text="0"; A->SelectAll(); }更に、
if(Key==VK_ESCAPE) { A -> Text="0"; A -> SelectAll(); Key=0; }19.イベントハンドラの共有
{ if(Key==VK_ESCAPE) { (ソース参照) } }
パーツ | プロパティ | 値 | |
Label1 | Caption | 2数を入力してください | |
Label2 | Caption | + | |
Label3 | Caption | = | |
Edit1 | Text | 0 | |
Edit1 | Name | A | |
Edit2 | Text | 0 | |
Edit2 | Name | B | |
Edit3 | Text | 0 | |
Edit3 | Name | C | |
Panel1 | Caption | 0 | |
Panel1 | Name | Gokei | |
Button1 | Caption | クリア | |
Button2 | Caption | 計算 | |
Button3 | Caption | 終了 | |
Form1 | Position | poScreenCenter |