WebBrowser Url ermitteln

[Maa83]

Hallo,

ich habe auf meinem Formular eine TWebBrowser-Komponente liegen.
In dieser wird eine Seite angezeigt die Links enthält. Nun möchte ich, sobald auf einen dieser Links geklickt wird, die URL zu der gelinkt werden soll ermitteln und dies z.B. mit Hilfe von ShowMessage ausgeben. Gibt es hierzu eine Möglichkeit?

[Maa83]

sorry, hab das Ereignis OnNavigateComplete2 komplett übersehen.

[delphis spassbremse]

udn was kommt da fürn code rein bei dem ereignis?

das würde mich mal interessieren

[Klaus01]

Vielleicht dieser?

Delphi-Quellcode:

procedure TForm1.EmbeddedWB1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  ShowMessage(Url);
end;

end.

Grüße
Klaus