我想模拟鼠标单击一下屏幕上某一点坐标的位置,而且要能单击任何位于最前端的程序(外部程序)的某位置.

Question

如题.

Answer 1

procedure TForm1.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  label1.caption:=floattostr(Chart1.LeftAxis.CalcPosPoint( x ));
end;

Answer 2

var p:TPoint;
p:=ScreenToClient(Mouse.CursorPos)

Answer 3

procedure TForm1.ToolbarButton972MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  mybit:Tbitbtn;
  point :Tpoint;
  form:Tform;
begin
   form:=screen.ActiveForm;
   
   screen.cursor:=crdefault;
   if screen.ActiveForm.name<>'Form1' then
    begin
     GetCursorPos(Point);
     mybit:=Tbitbtn.Create(self);
     mybit.Parent:=Form;
     mybit.left:=point.x-form1.left-form.Left;
     mybit.Top:=point.y-form1.top-form.top
    end;
end;TFrom 有个 ClientHeight
用他减去 TForm.Height 就是 Title的高度了。

Answer 4

TO:jiaai(很丑也不温柔) 
我要的是向某个坐标发出Click事件,即用我的程序实现单击外部程序某一位置的过程,而不需要我手动移动鼠标去单击这个位置.

Answer 5

Api函数可以改变鼠标的位置,而且还可以模拟鼠标事件.

Answer 6

使用mouse_event函数看一下Delphi的帮助

Answer 7

procedure TForm1.Button1Click(Sender: TObject);
begin
setcursorpos(横坐标,纵坐标);    //将鼠标放到你指定的地点
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0); //后面的四个参数是无意义的
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
end;还有一种方法就是通过MOUSEEVENTF_ABSOLUTE参数，将屏幕划为65535×65535，然后就可以
利用第一个零，和第二个零来确定你要找的点的坐标，呵呵，可以了吧！

Answer 8

可以查看相关的api函数呀！f1帮助有的