WebBrowser OnNavigateComplete

[Intruder]

Wie genau muss der SourceCode aussehen ?
- Folgendes soll geschehen:

If Edit1.text = label1.caption then Webbrowser1.Navigate ('http://www.test.de');

und sobald die seite fertig geladen ist soll der Browser zu http://www.andereseite.de
........

If Edit1.text = label1.caption then Webbrowser1.Navigate ('http://www.test.de')
when Webbrowser1.OnDocumentComplete then Webbrowser1.Navigate ('http://www.andereseite.de');

funktioniert nicht, da sind dann zu viele "When" und "Then" drin .... hab nen BlackOut

Schon mal DANKE

Intruder

[toms]

Hi!

Ich würd's so machen:

Delphi-Quellcode:

If Edit1.text = label1.caption then 
  Webbrowser1.Navigate ('http://www.test.de') 

while WebBrowser1.ReadyState < READYSTATE_INTERACTIVE do 
begin
   Application.ProcessMessages; 
   Sleep(50);
end;

Webbrowser1.Navigate ('http://www.andereseite.de');

[Christian Seehase]

Moin toms,

warum < READYSTATE_INTERACTIVE, und nicht <> ?

Bei < müsste man ja explizit den Wert der Konstanten wissen...