Помогите определить координаты мыши

[sincemix]

определяю кординаты миши на форме вот код

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var w:Tpoint;
begin
GetCursorPos(W);
ShowMessage( '(' + IntToStr(W.X) + ' ,' + IntToStr(W.Y ) + ')' );

end;

вроде работает
но не могу определить координаты когда навожу курсор на комнонент
TWebBrowser

[ZaRDaK]

Положи свой код в таймер с интервалом, допустим, 50.

[DIgorevich]

Ага, только лучше тогда не сообщения выводить, а в заголовок формы писать:

procedure TForm1.Timer1Timer(Sender: TObject);
var w:Tpoint;
begin
GetCursorPos(W);
Form1.Caption:= '(' + IntToStr(W.X) + ' ,' + IntToStr(W.Y ) + ')';

end;