鼠标经过button的事件是OnMouseMove,求鼠标离开的事件或能解决此问题的代码

Question

鼠标经过button的事件是OnMouseMove,求鼠标离开的事件或能解决此问题的代码

Answer 1

在Form或其他控件上如果响应到OnMouseMove，不就等于离开了Button了吗？

Answer 2

同意楼上，你也可处理MOUSELEAVEL消息

Answer 3

声明一个消息处理过程
procedure CMMouseLeave(var Message: TMessage); message CM_MouseLeave;实现代码
procedure TForm1.CMMouseLeave(var Message: TMessage);
begin
  if TObject(Message.LParam) = Button1 then
    ShowMessage('鼠标离开了');
end;