delphi 怎么检测鼠标坐标
delphi 怎么检测鼠标坐标
参考答案:在窗体的OnMouseMove时间中写入下列代码,就可以随时监控鼠标坐标了:
var P : TPoint;
GetCursorPos(P);//得到鼠标坐标
label1.Caption := inttostr(p.X) + ' ,' + inttostr(p.Y);//label控件显示鼠标坐标
delphi 怎么检测鼠标坐标
参考答案:在窗体的OnMouseMove时间中写入下列代码,就可以随时监控鼠标坐标了:
var P : TPoint;
GetCursorPos(P);//得到鼠标坐标
label1.Caption := inttostr(p.X) + ' ,' + inttostr(p.Y);//label控件显示鼠标坐标