高考问答贾静雯和胡歌:delphi怎么取得鼠标当前的坐标
来源：百度文库 编辑：高考问答 时间：2024/04/29 11:00:11
delphi怎么取得鼠标当前的坐标
鼠标在窗体上单击，在编辑框中显示当前鼠标的坐标
要怎么做？？？
用哪个函数
鼠标在窗体上单击，在编辑框中显示当前鼠标的坐标
要怎么做？？？
用哪个函数
写在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之间那句。
写在OnClick上也可以的
var
P:TPoint;
begin
GetCursorPos(P);
Edit1.Text:='X:'+IntToStr(P.X)+' Y:'+IntToStr(P.Y);
end;