掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ボタンの押下判定 (ID：34222)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
・フォームにボタンを２つおく ・各ボタンのtagプロパティにあらかじめ番号をセットする ・２つのボタンのOnClickイベントに同じOnClickを設定する procedure TForm1.ButtonClick(Sender: TObject); const A = 0; B = 1; begin case TButton(Sender).Tag of A:begin //tag=0のボタンクリック時の処理 showmessage('Aです'); end; B:begin //tag=1のボタンクリック時の処理 showmessage('Bです'); end; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.