Webbrowser Komponente ohne Rand?

[Piro]

Guten Abend,

ich programmiere gerade an einem Report via HTML. Dazu verwende ich die TWebbrowser Komponente. Der Umgang mit dem Webbrowser funktioniert bestens. Nur ist der Rand der Komponente störend. Siehe Screenshot.

Kann man die Komponente so konfigurieren, dass sie komplett eben ist?

Vielen Dank im voraus.

Sven

[toms]

Hallo,


Ja, das geht mit DOCHOSTUIFLAG_NO3DBORDER

Guter Artikel dazu: How to customise the TWebBrowser user interface

(Es gibt noch einfacher Möglichkeiten doch diese ist die beste)

[Piro]

Welche wäre das denn?

Ich habe es gerade mal ausprobiert und es hatt funktioniert. Vielen vielen Dank. Das Forum hier mit seinen Users ist echt eine große Hilfe.

Danke.

[Piro]

Wenn ich den Webbrowser offenen habe und dann F5 drücke ist der Rand wieder da. Wie kann ich auf das Aktualisieren reagieren,um den Code einzufügen?

[Matze]

Es gibt Ereignisse wie "OnDocumentComplete". Versuche es mal damit.

[toms]

Zitat von daywalker299:

Wenn ich den Webbrowser offenen habe und dann F5 drücke ist der Rand wieder da. Wie kann ich auf das Aktualisieren reagieren,um den Code einzufügen?

Sollte nicht passieren. Ich verwende den TEmbeddedWB, bei welchem man auch DOCHOSTUIFLAG_NO3DBORDER setzen kann.
Auch bei einer Aktualisierung (F5 etc.) wird der Rand nicht mehr angezeigt.

Wie sieht denn nun dein Code aus? Evtl. Beispiel-Projekt hochladen.

Zitat von daywalker299:

Welche wäre das denn?

TWebbrowser border Delphi

[Piro]

Hier mal mein BeispielCode im Anhang. Sobald man F5 drückt, kommt leider der Rand wieder.
Das Rechtsklick Menü habe ich schon unterbinden können.

Folgendes habe ich gemacht:

Delphi-Quellcode:

unit uMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, ComCtrls, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    ts_1: TTabSheet;
    ts_2: TTabSheet;
    WB: TWebBrowser;
    panel_top_menu: TPanel; 
    Button1: TButton;
    procedure WBNavigateComplete2(ASender: TObject; const pDisp: IDispatch;
      var URL: OleVariant);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 WB.Navigate('C:\WINDOWS\Web\tip.htm');
 PageControl1.ActivePage := ts_2;
 
end;

procedure TForm1.WBNavigateComplete2(ASender: TObject; const pDisp: IDispatch;
  var URL: OleVariant);
begin
 // Switch off scrollbars
 WB.OleObject.document.body.style.overflowX := 'hidden';
 WB.OleObject.document.body.style.overflowY := 'hidden';

 // Switch off borders
 WB.OleObject.document.body.style.borderstyle := 'none';
end;

end.

[toms]

Wenn du es perfekt haben möchtest, dann mach's mit DOCHOSTUIFLAG_NO3DBORDER (siehe mein erster Beitrag). Alles andere wird nicht optimal funktionieren.