twebbowser URL´s nacheinander aufrufen

[Mendelsohn]

Zitat von toms:

Diese ladeSeite() Procedure ist so nicht zu empfehlen, da das Programm unter Umständen nicht mehr
beendet werden kann wenn nicht aus der while-Schleife gesprungen wird.

OK, dann machen wir

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;
        if Application.Terminated then halt;
        sleep (1);
    end;
end;

draus.