鼠标在窗体上移动的时候，如何显示当前鼠标的坐标和控件的相对坐标？

Question

这个窗体上有panel,webbrowser,我用鼠标在界面上移动我希望在移动的过程中，显示2个数据1.当前鼠标的相对于整个屏幕的坐标2.当前鼠标相对于当前控件的坐标（比如，panel,鼠标移动进去的时候，鼠标在当前区域内的相对坐标）。
请问，有什么办法实现这个功能？

Answer 1

TForm和TPanel都有OnMouseMove事件，而TWebBrowser没有，所以只能在时钟里每隔一会儿取一下鼠标的坐标吧！procedure TForm1.Timer1Timer(Sender: TObject);
var
  C, S: TPoint;
  W: TWinControl;
begin//Timer1.Interval = 100
  S := Mouse.CursorPos;
  W := FindControl(WindowFromPoint(S));
  if W <> nil then
  begin
    C := W.ScreenToClient(S);
    Text := Format('屏幕坐标(%d, %d), 控件坐标(%d, %d)', [S.X, S.Y, C.X, C.Y])
  end else
    Text := Format('屏幕坐标(%d, %d)', [S.X, S.Y])end;

Answer 2

多谢楼上，我找到了更好的方法，用applicationevents