Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
webbrowser1.Navigate('www.web.de');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
webbrowser1.Navigate('www.google.de');
application.ProcessMessages;
form1.Caption := webbrowser1.locationurl ;
end;
Ausgabe:
http://www.web.de
wenn du mal ein Projekt mit diesen Quellzeilen ablaufen lässt, dann wirst du schnell merken woran das liegt.
So wie es aussieht wird die locationURL erst gesetzt, nachdem die Seite komplett geladen ist.
--> deine While schleife rennt einfach zu schnell durch.
dein Sleep hilft dir hier aber auch nicht, da damit alles einfriert, auch das laden deiner Website.