Question

用delphi怎么实现状态栏显示鼠标坐标在窗口中的位置？

各位高手大帮帮忙：用delphi怎么实现状态栏显示鼠标坐标在窗口中的位置？我用下面的方法实现不了，下面的方法实现的只有当鼠标在状态栏上面时才显示坐标。当鼠标在其他位置时就没有显示了。procedure TForm1.StatusBar1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);var strpos:string; pt:TPoint;begin GetCursorPos(pt); pt:=webbrowser1.ScreenToClient(pt); strpos:=format('%d,%d',[X,Y]); //获取鼠标指针的当前坐标 statusbar1.Panels[0].Text:=strpos;end;

Answer 1

呵呵，将获取鼠标坐标的代码放到FormMouseMove事件中就可以啦，你写到StatusBarMouseMove中，表示鼠标在状态栏上滑动的时候才执行这些代码，当然在窗口中没有反应啦。

Answer 2

procedure TForm1.Timer1Timer(Sender: TObject);var strpos:string; pt:TPoint;begin GetCursorPos(pt); pt:=webbrowser1.ScreenToClient(pt); strpos:=format('%d,%d',[X,Y]); //获取鼠标指针的当前坐标 statusbar1.Panels[0].Text:=strpos;end;

在form1里放个TTimer，叫timer1，OnTimer事件设为上面的Timer1Timer。