么意思博客

获取当前鼠标坐标： 加上uses Clipbrd; 模拟点击并填表：

获取当前鼠标坐标：

procedure TForm1.Timer1Timer(Sender: TObject);
var
  p:TPoint;
begin
  GetCursorPos(p);
  label9.Caption:=inttostr(p.X );
  label10.Caption:=inttostr(p.Y) ;

end;

加上uses Clipbrd;
模拟点击并填表：

procedure TForm1.denglu1Click(Sender: TObject);
var
  x,y:integer;
begin
  x:=strtoint(x1.Text);    //前往坐标
  y:=strtoint(y1.Text);    
  Mouse.CursorPos := Point(x, y);

  if x<>0 then
  begin
    Mouse_Event(MOUSEEVENTF_LEFTDOWN,x,y,0,0);
    Mouse_Event(MOUSEEVENTF_LEFTUP,x,y,0,0);
  end;
  sleep(1000);
  if x<>0 then
  begin
    Mouse_Event(MOUSEEVENTF_LEFTDOWN,x,y,0,0);
    Mouse_Event(MOUSEEVENTF_LEFTUP,x,y,0,0);
  end;
  clipboard.AsText:=user1.Text;//这里将数据粘贴到表里
  keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);   //ctrl+v
  keybd_event(Ord('V'), MapVirtualKey(Ord('V'), 0), 0, 0);
  keybd_event(Ord('V'), MapVirtualKey(Ord('V'), 0),KEYEVENTF_KEYUP, 0);
  keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), KEYEVENTF_KEYUP, 0);
  dl1.Enabled:=true;


end;