如何让speedbutton也会有MouseLeave

Question

如何让鼠标经过speedbutton后激发一个事件？？？？？？？

Answer 1

procedure TForm1.SpeedButton1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  //你要做的事
end;

Answer 2

填加一个事件就可以，delphi开发人员指南上就有

Answer 3

unit MySpeedbutton;interface
 uses buttons,Windows, Messages, Classes, Controls, Forms, Graphics, StdCtrls,
  ExtCtrls, CommCtrl;
type Tmyspeedbutton=class(Tspeedbutton)
  private
    procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
  end;
procedure Register;
implementation
procedure  Tmyspeedbutton.CMMouseEnter(var Message: TMessage);
begin
  Down:=true;
end;
procedure  Tmyspeedbutton.CMMouseLeave(var Message: TMessage);
begin
  Down:=false;
end;
procedure Register;
begin
  RegisterComponents('standard', [Tmyspeedbutton]);
end;
end.-----------------保存-安装测试-放两个到form设置groupbox为1，运行

Answer 4

[Fatal Error] MySpeedButton.pas(1): Program or unit 'MySpeedButton.pas' recursively uses itself楼上的大哥：我在安装前编译出现上面的错误的错误，为什么说“调用了单元本身”呢？？？

Answer 5

--_-\\1 上面那段保存为Myspeedbutton.pas
2 delphi-component菜单-install componeny-browse-选择-ok