練習問題1
- ボタンをクリックしたら、メッセージを表示する
- プログラムを実行する
- プロジェクトファイルとユニットファイルを保存する(名前を付ける)
- フォーム名とボタン名を変更する(キャプションも)
- フォームのタイトルとボタンのキャプションとアプリケーションのタイトルを表示する
一番最初って、こんなところから始めるのではないでしょうか。
いざ出発!
Delphiを起動し、「ツールパレット」の「Standard」から、「Tbutton」コンポーネントをフォームに貼り付けました。
「Button1」をダブルクリックし、表れたコードエディタに、次のように入力しました。(beginとendの間)
procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage('初めてのプログラミングです'); end;
実行ボタンをクリックし「Button1」ボタンをクリックしました。
ここまで、2番までやっつけましたぞ。威張るほどのものでもないか(^^;
名前を付けて保存するには、「ファイル」→「名前を付けて保存」をクリックします。
プロジェクトとユニット別々に名前を付けます。
キャプションと名前は、オブジェクトインスペクタのプロパティで設定します。
アプリケーションタイトルは「プロジェクト」-「オプション」で設定します。
ボタンのイベントプロシージャを次のように書き換えます。
procedure TfrmMain.btnJikkouClick(Sender: TObject); begin ShowMessage(frmMain.Caption); ShowMessage(btnJikkou.Caption); ShowMessage(Application.Title); end;
実行結果
「OK」をクリックすると、次のメッセージが表示されます。
この命令では1個ずつです。
簡単なプログラムでも、最初からきちんとやったほうがいいわね。
達成感があります。エラそうに(^^;