有没有MouseOut事件，我希望鼠标离开按钮时更换样式？

Question

有没有MouseOut事件，我希望鼠标离开按钮时更换样式？

Answer 1

你可以用窗体的Move事件来更换按钮样式

Answer 2

就在OBJECT INSPECTOR里改就行了啊？？

Answer 3

Timer中判断
GetWindowRect();
GetCursorPos();
PtInRect()
如果不再Rect里面就是MOuseOut

Answer 4

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