如何测试鼠标的位置是不是在Form窗体内

Question

测当前鼠标的位置是不是在Form窗体内，请问各位高手~
怎么做呀~
谢谢大家~帮帮小弟我~

Answer 1

不是在你的另一贴帮你解决了么用消息
    procedure CMMouseLeave(var msg: TMessage); message CM_MOUSELEAVE;

Answer 2

CMMouseLeave,我试过呀~
可是我做了没成功，CMMouseLeave好像是鼠标离开窗体时触发的~
而我希望，比如希望有一个函数~，当鼠标在FORM窗体内时就返回1
不在就返回0~
请问怎么做呢？

Answer 3

这个是鼠标离开的:
procedure CMMouseLeave(var msg: TMessage); message CM_MOUSELEAVE;再加上一个鼠标在的:
procedure CMMouseEnter(var msg: TMessage); message CM_MOUSEENTER;

Answer 4

hangguojun(布丁) 
好像有点不对啊~
procedure CMMouseLeave(var msg: TMessage); message CM_MOUSELEAVE;
这个事件好象在Mouse一离开FORM的标题栏的时候就发生了啊~
我希望是离开FORM窗体发生哦~

Answer 5

我试过了,不仅仅是离开标题栏发生,在离开窗体的时候也会发生
我试过从form的底部离开的,正常发生

Answer 6

procedure TForm1.Timer1Timer(Sender: TObject);
var
  x,y: integer;
begin
  x:= Mouse.CursorPos.X;
  y:= Mouse.CursorPos.Y;
  if (x<left) or (x>(left+width)) or (y<top) or (y>(top+height)) then
  begin
    windows.SetCursorPos(left,top);
  end;
end;

Answer 7

GetCursorPos（）
PtInRect（）