TWebBrowser zur Laufzeit löschen

[Jef]

Zitat von Darlo:

Probier mal die HTML-Datei zu verlassen.

Delphi-Quellcode:

  form3.WebBrowser1.Stop;
  form3.WebBrowser1.URL := '';
  form3.WebBrowser1.Navigate;

Das funktioniert leider nicht.

Was ich gefunden habe: NavNoReadFromCache

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  Flags: OLEVariant;

begin
  Flags:=4; // NavNoReadFromCache
  WebBrowser1.Navigate('http://www.example.com', Flags);
end;

Das scheint ein guter Ansatz zu sein. Flags: OLEVariant; ist bei mir jetzt eine globale Variable im Startformular. Wenn im Formcreate ich eine html lade und davor Flags:=4; setze, gibt es keine Fehlermeldung, wenn später alles freigegeben wird.