如何判断鼠标是否离开form?

Question

如何判断鼠标是否离开或进入form？请给出简单例程。

Answer 1

Delphi大概提供了CM_MOUSEENTER和CM_MOUSELEAVE两个消息。所以大概可以这样：
procedure CMMouseLeave(var Msg: Tmessage); message CM_MOUSEENTER;
（Borland公司打击盗版，我机器上不能装，只能靠记性）

Answer 2

可怜的chechy... 没错就是你说的那样：声明：
  private
    procedure CMMouseLeave(var Msg: Tmessage); message CM_MOUSELEAVE;
    procedure CMMouseEnter(var Msg: Tmessage); message CM_MOUSEENTER;
实现：
procedure TForm1.CMMouseLeave(var Msg: Tmessage);
begin
  // 鼠标离开
end;
procedure TForm1.CMMouseEnter(var Msg: Tmessage);
begin
  // 鼠标进入
end;

Answer 3

可能是
form1.onmouseleave = CMMouseLeave