twebbowser URL´s nacheinander aufrufen

[Mendelsohn]

Du könntest es mit dem "DocumentComplete"-Ereignis von TWebbrowser versuchen.
Allerdings habe ich die Erfahrung gemacht, dass dies (wie so einiges rund um den Internet Explorer) nicht immer zuverlässig funktioniert. Ich nutze daher:

Delphi-Quellcode:

procedure ladeSeite;
begin
    while ((Form1.Webbrowser1.ReadyState <> ReadyState_complete) or
    (Form1.Webbrowser1.Document = nil) or
    ((Form1.Webbrowser1.Document AS IHTMLDocument2).readyState <> 'complete')) do
    begin
        Application.ProcessMessages;
        sleep (1);
    end;
end;

Beispiel-Code wäre:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
    Form1.WebBrowser1.Navigate ('www.yahoo.de');
    ladeSeite;
    Form1.WebBrowser1.Navigate ('www.google.de');
    ladeSeite;
end;