neues browserfenster in tabsheet öffnen

[jAcK oRsEn]

ok, habs jetzt...aber wie genau kann ich es jetzt schaffen das er mir oben im tabsheet die url anzeigt....

Delphi-Quellcode:

procedure TForm1.webbrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
var
  TabSheet: TTabSheet;
  Web: TWebbrowser;
begin
  TabSheet := TTabSheet.Create(Form1.pagecontrol1);

  with TabSheet do
  begin
    PageControl := Form1.pagecontrol1;
  end;
  Web := TWebbrowser.CreateParented(TabSheet.Handle);
  TabSheet.InsertControl(Web);
  TWinControl(Web).align := alClient;
  ppDisp := Web.DefaultDispatch;
//  PageControl1.activepage.pageindex :=  PageControl1.PageCount- 1;
  Web.OnNewWindow2 := Webbrowser1NewWindow2;
  Web.OnCommandStateChange := Webbrowser1CommandStateChange;
  web.OnDocumentComplete := Webbrowser1documentcomplete;
  Web.OnNavigateComplete2 := Webbrowser1NavigateComplete2;
  Web.OnProgressChange := Webbrowser1ProgressChange;
  Web.OnstatusTextChange := Webbrowser1StatusTextChange;
  Pagecontrol1.Pages[pagecontrol1.PageCount - 1].caption := 'Lade...';
  
end;

und wie mache ich das mit der Enter Taste, das es für alle Webbrowser wirkt...und z.B. auch mit der Tab taste!