ボタンのイベント ハンドラを記述する
IntraWeb ファースト ステップ:インデックス への移動
ユーザーが [OK] ボタンをクリックしても、このフォームはまだ何のアクションも実行できません。
メイン フォームの編集については「メイン フォームを編集する」を参照してください。
次に、[OK] がクリックされるとメッセージを表示するイベント ハンドラを記述します。
- フォームの [OK] ボタンをダブルクリックします。 エディタ ウィンドウに、次のような空のイベント ハンドラが作成されます。
procedure TformMain.IWButton1Click(Sender: TObject);
begin
end;
void fastcall TformMain::Button1Click(TObject *Sender)
{
}
エディタで、イベント ハンドラに次のようなコードを追加します。
procedure TformMain.IWButton1Click(Sender: TObject); var s: string; begin s := editName.Text; if Length(s) = 0 then WebApplication.ShowMessage("Please enter your name.") else begin WebApplication.ShowMessage("Hello, " + s +"!"); editName.Text := ""; end; end;
void __fastcall TformMain::IWButton1Click(TObject *Sender) { UnicodeString s; s = editName->Text; if (s.Length() == 0) { WebApplication->ShowMessage("Please Enter Your Name"); } else { WebApplication->ShowMessage("Hello, " + s + "!"); editName->Text = ""; } }
完成したアプリケーションを実行するには、「完成したアプリケーションの実行」を参照してください。