掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
マウスがフォーム上から外れたときの判定 (ID：46012)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
もっと格好良い方法があるとは思いますが、単純な方法として．．． procedure TForm1.FormMouseLeave(Sender: TObject); var P: TPoint; begin sleep(100); //これを入れないと反応しなかった・・・ GetCurSorPos(P); if (Left > P.X) or (P.X > Left + Width) or (Top > P.Y) or (P.Y > Top + Height) then Visible := False; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.