在Delphi编程环境中，我们经常会遇到需要自定义控件行为的情况。`TButton`是Delphi内置的标准按钮组件，它提供了丰富的事件处理机制，如`OnClick`、`OnEnter`等，但默认情况下并没有提供`OnMouseLeave`事件。这个事件在其他一些组件中存在，当鼠标离开控件边界时触发，但在`TButton`上需要我们自行添加。标题"**TButton增加OnMouseLeave事件Delphi源码**"表明我们要讨论如何为`TButton`添加这个功能。
`OnMouseLeave`事件通常用于实现一些交互效果，例如改变按钮状态、显示提示信息或者执行特定操作。在没有内置支持的情况下，我们需要通过继承`TButton`并扩展其功能来实现。下面将详细介绍如何进行这个过程：
1. 创建新的组件类：
我们需要创建一个新的组件类，继承自`TButton`。这可以通过在Delphi中新建一个单元（Unit），然后在该单元中定义一个新的类，比如命名为`TMyButton`，并将它的基类设置为`TButton`。
```delphi
unit MyButtons;
interface
uses
Forms, Controls, StdCtrls;
type
TMyButton = class(TButton)
// 添加在这里
end;
implementation
end.
```
2. 添加`OnMouseLeave`事件处理：
接下来，我们需要扩展`TMyButton`，添加一个`OnMouseLeave`事件。这涉及到重写`WndProc`方法，以便拦截Windows消息并处理`WM_MOUSELEAVE`消息。
```delphi
TMyButton = class(TButton)
private
FOnMouseLeave: TNotifyEvent;
procedure WMMouseLeave(var Message: TMessage); message WM_MOUSELEAVE;
public
property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
end;
procedure TMyButton.WMMouseLeave(var Message: TMessage);
begin
inherited;
if Assigned(FOnMouseLeave) then
FOnMouseLeave(Self);
end;
```
3. 注册新组件：
在Delphi的组件面板上看到`TMyButton`，我们需要将其注册到系统中。在单元的`initialization`部分添加以下代码：
```delphi
initialization
RegisterComponentType(TMyButton);
```
4. 使用新组件：
现在，你可以在Delphi的Form设计器中使用`TMyButton`，并为`OnMouseLeave`事件分配处理程序。
```delphi
procedure TForm1.MyButtonClick(Sender: TObject);
begin
// 按钮被点击的处理
end;
procedure TForm1.MyButtonMouseLeave(Sender: TObject);
begin
// 鼠标离开按钮的处理
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
MyButton := TMyButton.Create(Self);
MyButton.Parent := Self;
MyButton.Caption := '我的按钮';
MyButton.OnClick := MyButtonClick;
MyButton.OnMouseLeave := MyButtonMouseLeave;
end;
```
以上就是如何在Delphi中为`TButton`增加`OnMouseLeave`事件的详细步骤。这个过程涉及到组件继承、消息处理以及事件机制，对于理解和定制Delphi控件有很好的学习价值。在实际开发中，这样的自定义组件可以提高代码的可复用性和灵活性，使你的应用更具个性化。通过提供的压缩包中的`codefans.net`文件，你可能能够找到更多关于这个主题的示例代码或相关资源。
TButton增加OnMouseLeave事件Delphi源码.rar （8个子文件） 
codefans.net 
MouseLeave.dpr 241B
