手机qq游戏塔防三国志:delphi怎么取得鼠标当前的坐标
来源:百度文库 编辑:杭州交通信息网 时间:2024/10/03 15:05:19
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;