掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
マウスのクリックをフォーム上のボタンに対応させるには？ (ID：5752)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
解決ということなのですが， これって，もしかして， procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage('右だよ'); end; procedure TForm1.Button2Click(Sender: TObject); begin ShowMessage('左だよ'); end; procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Button=mbRight then Button1Click(nil); if Button=mbLeft then Button2Click(nil); end; という動作のことですか．最初の文章から，この動作のことかとは思ったの ですが，これだとイベントで簡単にできてしまうので，違うかなと． Formの外側でマウスをクリックしてもということなのでしょうか． (Delphi7で確認．Delphi7じゃないこのイベントはないのかしらん)
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.