TWebBrowser como mantener actualizada la barra de direcciones

[darkamerico]

Saludos amigos, el tema es el siguiente: Deseo implementar un modulo usando TWebBrowser para esta direccion: http://www.openstreetmap.org/relatio....0291/-76.9553

Cada vez que el usuario arrastra el puntero del mouse los parámetros /-6.0291/-76.9553 que son la longitud y latitud se actualizan en el navegador, sin embargo en la aplicacion Delphi no se que evento usar para realizar tal tarea, ya que unicamente tengo el OnActivate del formulario con el codigo base:

Código Delphi [-]
procedure TForm1.FormActivate(Sender: TObject);
begin
 web.Navigate(txtURL.Text);
end;

Agradezco mucho si ayuda.


Americo

[jorge82]

Puedes utilizar el evento OnNavigateComplete2, en el tienes la URL actual:

Código Delphi [-]
procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject; const pDisp:
    IDispatch; var URL: OLEVariant);
begin
  Self.Caption:= URL;
end;

[darkamerico]

Diste en el clavo, muchas gracias!!!!

Un Abrazo