请问如何捕捉到鼠标离开Tpanel的事件？

[Caobiao]

请问如何捕捉到鼠标离开Tpanel的事件？在Tpanel的OnMouseMove事件中能知道鼠标进来事件，但是当鼠标离开它的时候我想触发一个函数，请问如何实现？谢谢！

[Caobiao]

up~

[changkai]

没人知道吗？
这个问题应该大家都有碰过的吧？
更新数据的时候应该有日志啊，就是原来的数据是多少，现在更改为多少，
要是直接改过来了，将来有问题查不出什么原因的

[changkai]

不好意思，发错了，我以为是我的问题，不好意思

[changkai]

TYourPanel=class(TPanel);
pvivate
FOnMouseEnter:TNotifyEvent;
FOmMouseEnter:TNotifyEvent;
procedure CMMOUSEENTER(vae Msg:TMessage);message CM_MOUSEENTER;
procedure CMMOUSELEAVE(VAR MSG:TMESSAGE);MESSAGE CM_MOUSELEAVE;
...........
published
property OnMouseEnter:TNotifyEvent read FOnMouseEnter write FOnMouseENter;
.........
PROCEDURE YourPanel.CMMOUSEENTER(VAR MSG:TMESSAGE);
BEGIN
if Assign(FOnMouseENTer) then
FOnMouseEnter;
END;

[panzhou]

最简单的做法是在PANEL上放一个Label

[Caobiao]

谢谢各位晚上回去试一下就结贴：）

[楚人无衣]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Panel1: TPanel;
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }

procedure CMMouseEnter(var Msg: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CMMouseEnter(var Msg: TMessage);
var
pnl: TPanel;
begin
pnl := TPanel(Msg.LParam);
if pnl <> nil then
pnl.Color := clLime;
end;

procedure TForm1.CMMouseLeave(var Msg: TMessage);
var
pnl: TPanel;
begin
pnl := TPanel(Msg.LParam);
if pnl <> nil then
pnl.Color := clSkyBlue;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
self.Perform(WM_SYSCOMMAND, $F012, 0)
end;

end.