procedure TForm1.Button1Click(Sender: TObject);
begin SetCursorPos(strtoint(edit1.text),strtoint(edit2.text));
end;
begin SetCursorPos(strtoint(edit1.text),strtoint(edit2.text));
end;
调试欢乐多
如果有必要,也可以clienttoscreen或screentoclient调节一下