Hallo,
du musst das Ereignis OnDocumentComplete() benutzen:
Delphi-Quellcode:
procedure TDemoForm.WebBrowserDocumentComplete(Sender: TObject;
const pDisp: IDispatch;
var URL: OleVariant);
begin
with Sender
as TWebBrowser
do
if pDisp = DefaultInterface
then
begin
Inc(iDownload);
Navigate(UrlList[iDownload]);
end;
end;
Getippt und nicht getestet.
Grüße vom marabu