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之间那句。