Question

delphi怎么取得鼠标当前的坐标

delphi怎么取得鼠标当前的坐标

鼠标在窗体上单击，在编辑框中显示当前鼠标的坐标

要怎么做？？？

用哪个函数

Answer 1

写在OnMouseDown事件上，不要写在OnClick上。代码如下（窗体名为Form1，编辑框为Edit1)

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Edit1.Text := 'X:' + IntToStr(X) + ' Y:' + IntToStr(Y);
end;

其实你需要写的只是begin和end之间那句。

Answer 2

写在OnClick上也可以的
var
P:TPoint;
begin
GetCursorPos(P);
Edit1.Text:='X:'+IntToStr(P.X)+' Y:'+IntToStr(P.Y);
end;