Ja danke, es funktioniert. Nur ich hab an "OnNavigateComplete2"-Event gedacht. Damit sollte es besser eleganter gelöst werden. Weiss aber leider nicht, wie ich es anwenden soll.
Delphi-Quellcode:
procedure TfrmMyBrowser.WebBrowser1NavigateComplete2(Sender: TObject;
const pDisp: IDispatch;
var URL: OleVariant);
begin
AddEventLog('
OnNavigateComplete2 ' +
URL);
edURL.Text := TWebbrowser(Sender).LocationURL;
end;
Ich fand das hier beim googeln, aber weiss nicht wie ich das auf mein Browser umsetzen soll.