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.
