TWebBrowser - zwei Formulare nacheinander ausfüllen

[MuTzE.Y85]

Ich mache das mit dem Warten immer so:

Code:

 repeat
   Application.ProcessMessages;
 until
   ((Browser.ReadyState = READYSTATE_COMPLETE) and (Browser.Busy = False));

Auf alle Fälle würde ich kein Sleep nehmen.

Hier wäre noch eine Variante:

Code:

procedure Delay(ATime: Integer);
var
 Start : Integer;
begin
 Start := GetTickCount;
 repeat
  Application.ProcessMessages;
 until
  (GetTickCount - Start) > ATime;
end;


 repeat
   Delay(100);
 until
   ((Browser.ReadyState = READYSTATE_COMPLETE) and (Browser.Busy = False));