移动鼠标到指定位置

{=================================================================
功 能: 移动鼠标到指定位置
参 数: Handle:容器句柄(窗体);TP:目标的相对位置(控件的TOP及LEFT);Offset_X,Offset_Y:坐标偏移值;
       Clicked:是否点击鼠标左键
返回值: 无
备 注:  用于引导操作
版 本: 1.0 2011/06/06 21:05:00 调用示例--为了能弹出HINT
procedure TForm1.Edit1Enter(Sender: TObject);
var
  vTP: TPoint;
begin
  vTP.X := Edit1.Left + Edit1.Width div 2;
  vTP.Y := Edit1.Top + Edit1.Height div 2;
  Pro_MoveMouseCursor(Handle, vTP, 0, 0);
end;

=================================================================}

procedure Pro_MoveMouseCursor(Handle:Cardinal; TP:TPoint;Offset_X,Offset_Y:Integer;
          Clicked: Boolean = False);
begin
with TP do
begin
  Windows.ClientToScreen(Handle, TP);
  X:=X+Offset_X;
  Y:=Y+Offset_Y;
  SetCursorPos(X,Y);
end;
if Clicked then
begin
  mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
  mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
end;
end;