neues browserfenster in tabsheet öffnen

[jAcK oRsEn]

hi,


wie kann ich webbrowsernewwindow2 in einem neuen tabsheet öffnen lassen...

so das ein neues tabsheet entsteht und dort der neue browserinhalt geladen wird.


gruß

[S2B]

Da hab ich was für dich! Die Unit der ersten Version meines Browsers! :lol: Ich weiß, das es schrecklich programmiert ist, das war auch mein allererstes Delphi-Projekt... :wink:

[jAcK oRsEn]

bis jetzt hab ich dies, was aber nicht viel hilft!

Delphi-Quellcode:

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

   TabSheet := TTabSheet.Create(Form1.pagecontrol1);
 Web := TWebbrowser.Create(TabSheet);
 with TabSheet do
   begin
     Name:= 'Fenster' ;
     Caption := Name;
     PageControl := form1.pagecontrol1;
   end;
   ppDisp := Web.DefaultDispatch;
  tabsheet.Parent := Form1;

end;

es öffnet ein tabsheet, aber kein browserfenster darin...und wenn ich schließe sagt er index kann nicht gelöscht werden

[S2B]

Das steht doch alles in der Unit drin!? :gruebel:

[jAcK oRsEn]

sorry, hab ich nicht gesehen ,schau ich mir mal eben AN

[jAcK oRsEn]

funktioniert nicht, der öffnet das neue tabsheet aber er öffnet zusätzlich noch de ie und lödt die seite nicht im neuen tabsheet

[S2B]

Und warum ging es dann bei mir immer? :roll:

[toms]

@S2B: Dein Code funktioniert bei mir auch nicht:

Eher so:

Delphi-Quellcode:

procedure TForm1.EmbeddedWB1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
var
  TabSheet: TTabSheet;
  Web: TWebbrowser;
begin
  TabSheet := TTabSheet.Create(Form1.pagecontrol1);
  Web := TWebbrowser.Create(TabSheet);
  with TabSheet do
  begin
    Name := 'Fenster';
    Caption := Name;
    PageControl := Form1.pagecontrol1;
  end;
  ppDisp := Web.DefaultDispatch;
  TWinControl(Web).Parent := TabSheet;
end;

[S2B]

Als bei mir ging er perfekt! :angle2:

[jAcK oRsEn]

So jetzt hab ich folgendes um so viele Tabsheets wie möglich erzeugen zu können, aber
es funktioniert nicht...

Delphi-Quellcode:

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


    PageControl := Form1.pagecontrol1;
  end;
  ppDisp := Web.DefaultDispatch;
  TWinControl(Web).Parent := TabSheet;
  TWinControl(Web).align := alclient;
end;