如何创建 OnMouseLeave 事件？
【问题讨论】：
标签： delphi events mouse delphi-7
Andreas 解决方案的另一个替代方案是使用 CM_MOUSELEAVE VCL 消息，该消息已在 delphi 7 中定义。
使用 TButton 的插入器类检查此示例
type
TButton = class(StdCtrls.TButton)
private
FOnMouseLeave: TNotifyEvent;
procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
protected
property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
end;
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
private
procedure ButtonMouseLeave(Sender: TObject);
public
end;
//handle the message and call the event handler
procedure TButton.CMMouseLeave(var Message: TMessage);
begin
if (Message.LParam = 0) and Assigned(FOnMouseLeave) then
FOnMouseLeave(Self);
end;
procedure TForm1.ButtonMouseLeave(Sender: TObject);
begin
//your code goes here
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
//assign the event
Button1.OnMouseLeave:=ButtonMouseLeave;
end;
【讨论】：
TImage（图形控件），但它在“表单边缘”不起作用。
当鼠标离开控件时，您可以告诉 Windows 向您发送一条消息，更具体地说是一条WM_MOUSELEAVE 消息。为此，请调用TrackMouseEvent 函数。在TRACKMOUSEEVENT 结构中，指定TME_LEAVE 标志。
应要求提供一些代码：
当控件已创建，并且鼠标位于控件的客户区域内时，告诉 Windows 您希望在鼠标离开控件时收到通知：
procedure TMyControl.SetMouseEvent;
var
tme: TTrackMouseEvent;
begin
tme.cbSize := sizeof(tme);
tme.dwFlags := TME_LEAVE;
tme.hwndTrack := Self.Handle;
TrackMouseEvent(tme);
end;
当控件被创建并且鼠标在控件内部时调用这个过程。现在您只需收听WM_MOUSELEAVE 消息。在您的 WndProc 过程（类的受保护成员）中，添加 WM_MOUSELEAVE 案例。
procedure TMyControl.WndProc(var Message: TMessage);
begin
inherited;
case Message.Msg of
WM_MOUSELEAVE:
beep;
end;
end;
我认为 Windows 在创建消息时会删除通知请求，因此您必须在收到消息后重新请求通知。不能在WndProc 中调用SetMouseEvent，因为调用TrackMouseEvent 时鼠标需要在控件的客户区内。我认为您可以将SetMouseEvent 放在控件的OnMouseMove 内：
procedure TMyControl.WndProc(var Message: TMessage);
begin
inherited;
case Message.Msg of
WM_MOUSELEAVE:
beep;
WM_MOUSEMOVE:
SetMouseEvent;
end;
end;
我自己没有测试过上面的代码，因为我使用的是较新版本的 Delphi，Delphi 2009，它在幕后做这样的事情（我认为，因为现在控件中有一个 OnMouseLeave 事件），我认为这会干扰。
【讨论】：