Delphi中模拟鼠标操作
摘要:
procedure TMainFrom.imgResultMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var Point:TPoint; begin GetCursorPos(Point);//获取当前鼠标位置 SetCursorPos(Point.X-510,... 阅读全文
posted @ 2010-11-19 18:27 Delphi7456 阅读(8577) 评论(0) 推荐(0) 编辑