Timer, blicke nicht durch *revision*

[LoCrux]

I hope I got you right....

ich kenne zwar die Komponente nicht, aber...

maybe helps...

Delphi-Quellcode:

procedure TYourClass.FireEmUp;
begin
  EmbeddedWb1.go(url);
  EmbeddedWb2.go(url);
  FYourCounter := 0;
end;

function TYourClass.CheckState(const browser:TEmbeddedWB):Boolean;
begin
  result := (browser.ReadyState <> READYSTATE_COMPLETE);
end;

procedure TYourClass.YorTimer(Sender: TObject);
begin
  if (CheckState(EmbeddedWb1) or CheckState(EmbeddedWb2))
  then begin
    inc(FYourCounter);
    if (FYourCounter>15)
       then FireEmUp;
  end
  else YorTimer.Enabled := False;
end;

.
.
YourTimer.Interval := 1000;
FireEmUp;                    //[edit] Zeilentausch [/edit]
YorTimer.Enabled := True;    //[edit]   -- " --    [/edit]
While (YorTimer.Enabled) 
do begin 
  Application.ProcessMessages;
  // Was noch so ansteht
end;
.
.

ABER !!! Es besteht die Gefahr, dass Du niemehr aus der While-Schleife kommst (z.B. keine Internetverbindung)...

.. such nach was stilitisch schoenerem...