TWebBrowser.ReadyState

[ArrayOf..]

Also bei mir geht's normal bis zum fWebBrowser.ReadyState = ReadyState_Complete. Woran das bei dir liegen könnte, kann ich dir allerdings nicht sagen.


Äh...,
am Erzeugen kann es doch wohl nicht liegen, oder?

Code:

procedure TForm2.FormCreate(Sender: TObject);
begin
  fWebBrowser := TWebBrowser.Create(form2);
  TOleControl(fWebBrowser).parent := form2;
  fWebBrowser.Align := alClient; 
  fWebBrowser.Enabled := true;
  fWebBrowser.Show;
end;

und folgendes war die ButtonClick-Routine:

Code:

procedure TForm1.Button2Click(Sender: TObject);
begin
  form2.fWebBrowser.Navigate('www.whatismyip.com');
  while form2.fWebBrowser.ReadyState < READYSTATE_Complete do Application.ProcessMessages;
  if form2.fWebBrowser.ReadyState = ReadyState_Complete then beep;
end;