如何判断鼠标移开按钮

[shacy]

我知道用WMMOUSELEAVE消息。由于新手，我不知道应该如何写？我这样写的：
procedure TBrowserForm.WMMouseLeave(var Msg:TWMMouse);
begin
LoadImageButton;
inherited;
end;

这样写，才可以执行。但是我需要获得鼠标移开按钮的消息，应该如何写？请各位指教菜鸟。

[shacy]

请问 ZyxIp(绝望中...) ，TLabelEx是按钮的名字吗？为什么我一写成按钮就出错？写成所在的窗体的名字没错？提示的错误为";"expected but found "."。原来没错。

[delphi_xizhousheng]

TLabelEx是人家自己命名的窗体的名字啦，换成你自己的就行了 TForm1

[delphi_xizhousheng]

procedure WMMouseLeave(var Msg:TWMMouse);); message CM_MOUSELEAVE


procedure TBrowserForm.WMMouseLeave(var Msg:TWMMouse);
begin
LoadImageButton;
inherited;
end;

[shacy]

谢谢大家解决了。

[ZyxIp]

进去和出来
procedure CMMouseEnter(var Msg: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;

procedure TLabelEx.CMMouseEnter(var Msg: TMessage);
begin
FOldColor := Font .Color ;
// if msg.LParam=integer(pc_Main ) then
// showmessage('fsdkfs');
Font.Color :=ColorMove;
self.Top :=self.Top -1;
Font.Style :=Font.Style+[fsunderline];
end;

procedure TLabelEx.CMMouseLeave(var Msg: TMessage);
begin
Font.Color :=FOldColor;
self.Top :=self.Top +1;
Font.Style :=Font.Style-[fsunderline];
end;

[IORILI]

这个问题俺不会，你看看一楼的答案对不对