Wie WebBrowser-Fenster wieder verschwinden lassen

[Migo]

Hallo,

ich möchte mir eine PDF-Datei in einer WebBrowser-Komponente anzeigen lassen. Diese Komponente soll über meine ListView1 angezeigt werden. Das mache ich so:

Code:

    WebBrowser := TWebBrowser.Create(ListView1);
    TOleControl(WebBrowser).Parent := ListView1;
    WebBrowser.Align := alClient;
    WebBrowser.Navigate('C:\temp\Example.pdf');

Nun möchte ich bei einem Mausclick das dieses WebBrowser-Fenster wieder verschwindet und meine darunterliegende ListView1 wieder angezeigt wird.
Ale Versuche mit WebBrowser := NIL oder WebBrowser.Visible := False erzeugen eine Delphi Exception im Programmlauf nach Klick der Maus.

Habt Ihr eine Lösung? :cry:

LG,
Migo

[fred42]

Hallo,
das sollte funktionieren.

Delphi-Quellcode:

webbrowser.free;
ListView1.Repaint;

[Migo]

Leider kommt sofort dann eine "Exception der Klasse $C0000005 ACCESS_VIOLATION" :cry:

[TomyN]

Probier mal

Delphi-Quellcode:

webbrowser:= TWebBrowser.Create(self)

[Migo]

Danke für Eure Hilfe.

Leider gab es so immer wieder Exeptions... nun habe ich eine VCL WebBrowser-Komponente auf meine Form gelegt und diese so miniklein gemacht, dass sie nicht stört in meiner Anwendung und mit

Code:

        WebBrowser1.Align := alClient;
        WebBrowser1.Navigate(Auswahl);

rufe ich sie auf und verkleinere sie dann wieder mit

Code:

        WebBrowser1.Align := alNone;
        WebBrowser1.Navigate('');

Viele Grüße!