掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
OnMouseMoveから出たときの処理は？ (ID:6324)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Halbow です。 Panel1 にマウスが入ってきたときと、出て行ったときのタイミング がつかめられればいいのですね。こんな感じです。 { Private 宣言 } public OriginalProc:TWndMethod; procedure SubClassProc(var Msg:TMessage); end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); begin OriginalProc := Panel1.WindowProc; Panel1.WindowProc := SubClassProc; end; procedure TForm1.SubClassProc(var Msg: TMessage); begin OriginalProc(Msg); case Msg.Msg of CM_MOUSEENTER:Panel2.Color := clRed; CM_MOUSELEAVE:Panel2.Color := clBtnFace; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.