1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    PageControl1: TPageControl;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
procedure NewWindow(Sender: TObject;var ppDisp: IDispatch; var Cancel: WordBool);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

procedure TForm1.Button1Click(Sender: TObject);
var
  NewTab : TTabSheet;  //variable, die unser neues Tabsheet seinwird
  NewWeb : TWebBrowser;//auf dem tabsheet wird dann diesesbrowserfenster liegen, beide werden zur laufzeit erzeugt
begin
  //TabSheet erstellen
  NewTab:= TTabSheet.Create(Form1.PageControl1);
  //TabSheet ist sichtbar
  NewTab.Visible := True;
  //Beschriftung übergeben
  NewTab.Caption := 'Neue Seite';
  //TabSheet an das PageControl übergeben
  NewTab.PageControl := Form1.PageControl1;
  //Aktive Seite des PageControls auf das gearde erstellt TabSheetsetzen
  Form1.PageControl1.ActivePage:= NewTab;
  //neues Browser Objekt erstellen
  NewWeb:=TWebBrowser.Create(NewTab);
  //Browser Objekt an das TabSheet übergeben
  TWinControl(NewWeb).parent := NewTab;
  //Browser Ausrichtung festlegen
  NewWeb.Align:= alClient;
  //ggf. weitere Ereignisse für das neue WebBrowser Objektfestlegen
  NewWeb.OnNewWindow2:= NewWindow;
  //WebBrowser sichtbar
  NewWeb.Visible := True;
end;					

1:
2:
3:
4:

procedure TForm1.Button2Click(Sender: TObject);
begin
  (PageControl1.ActivePage.Controls[0] as TWebBrowser).Navigate(Edit1.Text);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.NewWindow(Sender: TObject;var ppDisp: IDispatch; var Cancel: WordBool);
var
  Tabsheet: TTabsheet;
  Browser: TWebBrowser;
begin
  //Neues TabSheet mit WebBrowser erstellen
  Form1.Button1Click(nil);
  //Aktives TabSheet finden
  TabSheet:= Form1.PageControl1.ActivePage;
  //Anfrage umleiten (neue seite im neuen webbrowserdentseranzeigen)
  ppDisp:= (PageControl1.ActivePage.Controls[0] as TWebBrowser).DefaultInterface;
end;					

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.FormActivate(Sender: TObject);
begin
  Form1.Button1Click(nil);
  Form1.Button2Click(nil);
end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:

{...}

initialization
  OleInitialize(nil);

finalization
  OleUninitialize;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:

unit Unit1; 

interface 

uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, OleCtrls, SHDocVw_TLB, ActiveX, StdCtrls; 

type 
  TForm1 = class(TForm) 
    WebBrowser1: TWebBrowser; 
    Button1: TButton; 
    Button2: TButton; 
    procedure FormDestroy(Sender: TObject); 
    procedure FormCreate(Sender: TObject); 
    procedure Button1Click(Sender: TObject); 
    procedure Button2Click(Sender: TObject); 
  private 
    { Private declarations } 
    FOleInPlaceActiveObject: IOleInPlaceActiveObject; 
    procedure MsgHandler(var Msg: TMsg; var Handled: Boolean); 
  public 
    { Public declarations } 
  end; 

var 
  Form1: TForm1; 


implementation 

{$R *.dfm} 

procedure TForm1.FormDestroy(Sender: TObject); 
begin 
  FOleInPlaceActiveObject := nil; 
end; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  Application.OnMessage := MsgHandler; 
end; 

procedure TForm1.MsgHandler(var Msg: TMsg; var Handled: Boolean); 
var 
  iOIPAO: IOleInPlaceActiveObject; 
  Dispatch: IDispatch; 
begin 
  { exit if we don't get back a webbrowser object } 
  if (WebBrowser1 = nil) then 
  begin 
    Handled := False; 
    Exit; 
  end; 

  Handled := (IsDialogMessage(WebBrowser1.Handle, Msg) = True); 

  if (Handled) and (not WebBrowser1.Busy) then 
  begin 
    if FOleInPlaceActiveObject = nil then 
    begin 
      Dispatch := WebBrowser1.Application; 
      if Dispatch <> nil then 
      begin 
        Dispatch.QueryInterface(IOleInPlaceActiveObject, iOIPAO); 
        if iOIPAO <> nil then 
          FOleInPlaceActiveObject := iOIPAO; 
      end; 
    end; 

    if FOleInPlaceActiveObject <> nil then 
      if ((Msg.message = WM_KEYDOWN) or (Msg.message = WM_KEYUP)) and 
        ((Msg.wParam = VK_BACK) or (Msg.wParam = VK_LEFT) or (Msg.wParam = VK_RIGHT)) then 
        //nothing - do not pass on Backspace, Left or Right arrows 
      else 
        FOleInPlaceActiveObject.TranslateAccelerator(Msg); 
  end; 
end;					

1:

(WebBrowser.Document as IHTMLDocument2).innerHTML					

1:

pagecontrol1.activepage.free;