ボタンのイベント ハンドラを記述する

IntraWeb ファースト ステップ：インデックス への移動

ユーザーが [OK] ボタンをクリックしても、このフォームはまだ何のアクションも実行できません。

メイン フォームの編集については「メイン フォームを編集する」を参照してください。

次に、[OK] がクリックされるとメッセージを表示するイベント ハンドラを記述します。

1. フォームの [OK] ボタンをダブルクリックします。 エディタ ウィンドウに、次のような空のイベント ハンドラが作成されます。

 
procedure TformMain.IWButton1Click(Sender: TObject);
 begin
 end;

void fastcall TformMain::Button1Click(TObject *Sender)
{

}

2. エディタで、イベント ハンドラに次のようなコードを追加します。

   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 = "";
   	}
   }
   

完成したアプリケーションを実行するには、「完成したアプリケーションの実行」を参照してください。

関連項目

• http://www.atozed.com/IntraWeb/Documentation/Index.EN.aspx