如何判断当前鼠标是否在某个控件上（注意：有可能都个控件重合在一起）

Question

如何判断当前鼠标是否在某个控件上（注意：有可能都个控件重合在一起）

Answer 1

var
  h:HWND;
  p:TPoint;
  con:TControl;
begin
  GetCursorPos(p);
  h := WindowFromPoint(p);
  if h > 0 then
  begin
    con := FindControl(h);
    ShowMessage(con.ClassName);
    //处理con
  end;
end;

Answer 2

var
  h:HWND;
  p:TPoint;
  con:TControl;
begin
  GetCursorPos(p);
  h := WindowFromPoint(p);
  if h > 0 then
  begin
    con := FindControl(h);
    ShowMessage(con.ClassName);
    //处理con
  end;
end;

Answer 3

楼主是不是要做一个类似于Rose的工具？现在要实现的是点一下左边的按钮，在右边再点一下就画出来想要的东西？