Auf website von TWebBrowser warten

[hedie]

Hallo

Ich möchte warten bis eine website geladen wurde...

Ich habe dies derzeit so gelöst:

Delphi-Quellcode:

Form1.webbrowser1.Navigate('adressexy');
while Form1.WebBrowser1.LocationURL <> 'adressexy' do;

Jedoch hängt sich das programm auf... es wird nie eine seite angezeigt...


Wenn ich jedoch eine Message box reinbaue dan klappt es jedoch möchte ich nicht immer auf die box klicken müssen

Delphi-Quellcode:

Form1.webbrowser1.Navigate('adressexy');
while Form1.WebBrowser1.LocationURL <> 'adressexy' do showmessage('bla bla');

Seht ihr den fehler?

Liebe Grüsse