移动鼠标到指定位置
{=================================================================功 能: 移动鼠标到指定位置参 数: Handle:容器句柄;TP:目标的相对位置;Offset_X,Offset_Y:坐标偏移值; Clicked:是否点击鼠标左键返回值: 无备 注: 用于引导操作版 本: 1.0 2011/06/06 21:05:0
{=================================================================
功 能: 移动鼠标到指定位置
参 数: 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;
更多推荐
所有评论(0)