在Delphi编程中，TButton控件是常用的用户界面元素，用于接收用户的点击操作。然而，TButton默认并不提供OnMouseLeave事件，该事件在鼠标离开控件时触发，这对于某些交互设计来说可能会有所限制。本示例将详细介绍如何通过自定义代码为TButton增加OnMouseLeave事件功能。
我们要理解Delphi中的事件处理机制。Delphi采用组件化开发，每个组件（如TButton）都有其预定义的事件，如OnClick、OnMouseDown等。但有时我们可能需要自定义行为，这时就需要编写代码来扩展组件的功能。
在本例中，我们将利用Delphi的消息处理机制来模拟OnMouseLeave事件。Delphi的控件可以通过消息泵（Message Loop）捕获并响应各种Windows消息，其中包括与鼠标操作相关的消息，如WM_MOUSEMOVE。当鼠标在窗口内移动时，系统会发送WM_MOUSEMOVE消息，我们可以监听这个消息来判断鼠标是否离开了TButton。
具体实现步骤如下：
1. 创建一个新的单元（Unit），并定义一个自定义的TButton类，继承自标准的TButton。这可以通过在Delphi中使用`type TMyButton = class(TButton)`来完成。
2. 在新创建的TMyButton类中，添加一个字段来记录鼠标是否在按钮上，例如`FMouseOver: Boolean`。
3. 重写TMyButton的WndProc方法。这是组件处理Windows消息的地方。我们需要在其中拦截WM_MOUSEMOVE消息，并根据鼠标位置判断是否在按钮上。
```pascal
procedure TMyButton.WndProc(var Message: TMessage);
begin
inherited;
if Message.Msg = WM_MOUSEMOVE then
begin
// 判断鼠标是否在按钮上
FMouseOver := PtInRect(ClientRect, SmallPointToRect(Message.LParam));
// 更新按钮上的文字
if FMouseOver then
Caption := '在'
else
Caption := '不在';
end;
end;
```
4. 在WndProc中，我们使用了`PtInRect`函数来检查鼠标位置是否在按钮的矩形区域内。如果在，则`FMouseOver`设为True，否则设为False。然后根据`FMouseOver`的值更新按钮的Caption。
5. 为了使TMyButton能够响应WM_MOUSEMOVE消息，我们需要在构造TMyButton对象时注册消息钩子。可以在构造函数中加入以下代码：
```pascal
constructor TMyButton.Create(AOwner: TComponent);
begin
inherited;
SetWindowLong(Handle, GWL_WNDPROC, LongInt(@MyWndProc)); // 注册自定义消息处理程序
end;
```
这里，`SetWindowLong`函数用于替换TButton的原始窗口过程，`MyWndProc`是一个全局函数，它转发消息到我们的`WndProc`方法。
6. 同样，为了在销毁TMyButton对象时解除消息钩子，我们需要在析构函数中恢复原始窗口过程：
```pascal
destructor TMyButton.Destroy;
begin
SetWindowLong(Handle, GWL_WNDPROC, LongInt(inherited WndProc)); // 恢复原始窗口过程
inherited;
end;
```
通过以上步骤，我们就成功地为TButton增加了类似OnMouseLeave的事件处理。当鼠标离开按钮时，按钮的Caption会自动更新为“不在”，反之则显示“在”。这个例子展示了Delphi中如何利用消息处理机制来扩展控件功能，对于学习Delphi的自定义组件和事件处理具有一定的参考价值。
delphiMouseLeave.rar （8个子文件） 
codesc.net 
MouseLeave.dpr 241B
