Question

delphi控制鼠标位置点击链接

var
x,y:integer; //
begin
x:=404;y:=282; //控制鼠标

SetCursorPos(404,282); //
timer1.Enabled:=true ;
keybd_event(13,0,0,0);

Mouse_Event(MOUSEEVENTF_LEFTDOWN,x,y,404,282); //开始点击
Mouse_Event(MOUSEEVENTF_LEFTUP,x,y,404,282); //弹出

end;

end.
我随便弄下 可惜不能连续的点击 ，只能点一下就最小化了，没鼠标的点击此数吗，谁能帮我搞下

Answer 1

不是代码问题
是因为 SetCursorPos(x,y); 的x y是针对屏幕的坐标
你设置的坐标如果不是 你窗体的范围内
那就相当于 是你用鼠标点一下程序外面
就自动激活其他界面了 原本的窗体自然隐藏了

至于你的鼠标位置
可以用
var
P: TPoint;
begin
GetCursorPos(P); 获取

如果是想在panel 的onmousedown事件里 判断当前鼠标位置
那算法就是

var
x1,y1,i,j:integer; //
begin
i:= round((Form1.Width-form1.ClientWidth)/2); //边框
j:= (Form1.Height-form1.ClientHeight)-i; //标题栏高度

//showmessage(inttostr(form1.ClientWidth-Form1.Width));
x1:=Form1.Left+Panel1.Left+i+x;
y1:=Form1.Top+Panel1.Top+j+y; //控制鼠标
showmessage(inttostr(x1));
showmessage(inttostr(y1));
end;

var
x,y:integer; //
begin
x:=614;
y:=282; //控制鼠标
SetCursorPos(x,y); //
Mouse_Event(MOUSEEVENTF_LEFTDOWN,0,0,0,0); //开始点击
Mouse_Event(MOUSEEVENTF_LEFTUP,0,0,0,0); //弹出

end;