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.