Aussehen des TWebbrowsers verändern

[Angel4585]

Hallo zusammen,

ich hab grad ein kleine Problem mit meinem TWebbrowser.

Und zwar möchte ich das einmal die Scrollbar ausgeblendet wird und zum andern soll bei einem rechtsklick auch nicht dieses StandardPopup kommen, weis jemand wie ich das hinkriege? Ich hab hier shcon gesucht und auch in der Kompo alle Properties ausprobiert, aber irgendwie krieg ich das nicht hin.

Danke schonmal

MfG

Edit: Fallsdas mit dem TWebbrowser nicht geht, könnt ihr mir andere Kompos empfehlen mit denen ich Seiten aus dem Intenrnet anzeigen lassen kann?

[SirThornberry]

ich hab das bisher immer so umgesetzt das ich im OnDocumentComplete den Quelltext abgeändert habe. Bzw. kann man ja auch per Hook dafür sorgen das die rechte Maustaste verworfen wird.

[mkinzler]

Da dir TWebbrowser-Komponenet nur ein Wrapper für das IE-Contropl is, kannst du direkt keine Veränderungen an dessen Standdardverhalten machen. Als Alternative würde sich vielleicht das (zugriffskompatibel) TMozillaBrowser eigenen, welches auf der GRE aufsetzt.

[marabu]

Ich würde es eher so formulieren: WebBrowser ist die Basiskomponente und der Internet Explorer ist das zugehörige User Interface. Laut Dokumentation muss die Delphi Anwendung einfach das Interface IDocHostUIHandler implementieren und schon geht das alles. Soweit die elegante Lösung. Clever wäre die Installation des EmbeddedWebBrowser. Bei dieser Komponente sind viele Ereignisse und Zustände bereits published und leicht über den OI benutzbar.

Grüße vom marabu

[toms]

Zitat von Angel4585:

und zum andern soll bei einem rechtsklick auch nicht dieses StandardPopup kommen, weis jemand wie ich das hinkriege?

Kannst das auch ohne Hooks machen. Einfach eine TApplicationEvents Komponente platzieren und dann im OnMessage
folgenden Code schreiben:

Delphi-Quellcode:

procedure TfrmMyBrowser.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if ((Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONDBLCLK)) 
    then 
      if IsChild(WebBrowser.Handle, Msg.HWND) then 
      begin 
        Handled := True;
      end; 
end;