掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ListViewのマウスクリックでOnExitイベントが2回実行されてしまう (ID:44722)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
適当にEditコンポーネントとListViewコンポーネントをフォーム上に置いて、 以下のようにEditのOnExitイベントを書いたとします。 procedure TForm1.Edit1Exit(Sender: TObject); begin if ○○ then begin ShowMessage('入力値が不正です。再入力してください。'); Edit1.SetFocus; end; end; 上記のソースで、（if文の条件を満たしつつ）Edit1からListViewコンポーネントへ 「マウスクリック」でフォーカスを移すと、OnExitイベントが「2回」実行されてしまうようで メッセージも2回表示されてしまうのですが、これは何故なのでしょうか。 マウスクリックによるフォーカス移動ではなくタブキーでフォーカス移動した場合や、 ListViewではなくて、別のコンポーネント（TMemoとかツリービューとか）をクリックした場合には OnExitが1回しか実行されません。 この現象を回避する方法（1回のみOnExitイベントを実行する方法）がもしあればご教示いただきたいのです。 どうぞよろしくお願いします。 （環境は、Delphi6 personal＋Windows7です。）
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.