掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ショートカットで発生するイベントよりOnExitのイベントを優先させるには？ (ID：8962)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
エラーチェック用の関数をつくって、こんな感じです { Private 宣言 } public function Edit1ErrorCheck:Boolean; end; var Form1: TForm1; implementation {$R *.DFM} function TForm1.Edit1ErrorCheck: Boolean; begin // エラーチェックのコード result := true; //エラーがあったら true なければ false end; procedure TForm1.Edit1Exit(Sender: TObject); begin if Edit1ErrorCheck then // エラーの時の処理 else // エラーがないときの処理 end; procedure TForm1.Button1Click(Sender: TObject); begin if Edit1ErrorCheck then exit; // 本来の OnClick の処理 end; これだと、マウスで Button1 をクリックしたときは Edit1ErrorCheck が二度 実行されますが実害はないでしょう。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.