请教大虾：不用控件直接在程序里实现响应鼠标在控件（如label,btn)进入,离开事件，请给详细点。

Question

如题：请教大虾：不用控件直接在程序里实现响应鼠标在控件（如label,btn)进入,离开事件，请给详细点。多谢了。

Answer 1

如果窗口里面连控件都没有，相应谁的进入、离开？如果有控件的话，指定控件的事件相应函数就行了。type  TForm1 = class(TForm)
     ......
  Private
    procedure MyBtnEnter(Sender: TObject);
    procedure MyBtnExit(Sender: TObject);
    ........
    procedure FormCreate(Sender: TObject);
  end;
    .....
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  btn.OnEnter = MyBtnEnter;
  Btn.OnExit:=  MyBtnExit;
end;procedure TForm1.MyBtnEnter(Sender: TObject);
begin
.........
end;procedure TForm1.BtnExit(Sender: TObject);
begin
.........
end;

Answer 2

如果不用控件，那只能用Hook了！

Answer 3

to:bigysw 不好意思没说清楚，是不用自己自写控件在里面实现
to:inbud(清风侠）真的只有用hook了吗，没有简单点的吗

Answer 4

一种是hook，一种是窗口过程WndProc