neues browserfenster in tabsheet öffnen

[jAcK oRsEn]

es kommt nur ein abbild des ersten browserfensters

[toms]

funktioniert's so?

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.ActivePageIndex :=  PageControl1.PageCount-1;
  Web.OnNewWindow2 := Webbrowser1NewWindow2;
end;

[jAcK oRsEn]

komisch, wenn ich das hier:

Delphi-Quellcode:

TWinControl(Web).align := alclient;

weglasse gehts, aber dann ist das browserfenster im zweiten tabsheet nicht maximiert!

[jAcK oRsEn]

moment, ich teste neuen code



Fehler: ActivePageIndex nicht gefunden

[jAcK oRsEn]

ok, habs nun, aber jetzt wird die neue seite immer einen tabsheet vor der alten geladen...

es soll aber anders herum gehen!


jetzt wird also die neue seite in tabsheet0 geladen und die alte geht in tabsheet1

[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!

[S2B]

Würde mich auch interessieren, aber neue Frage, neuer Thread! :wink:

[MathiasSimmack]

Ein neuer Beitrag, wo es doch offensichtlich immer noch mit dem WebBrowser und dem TabSheet zu tun hat?

Zitat:

Zitat von jAcK oRsEn

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

Ich habe ein altes Projekt von mir gefunden (zumindest die PAS-Datei ist noch da), in dem ich beim WebBrowser auf das Ereignis "OnBeforeNav" reagiere. Und dort wird der URL dann angezeigt:

Delphi-Quellcode:

procedure TXplorForm.BeforeNav(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant;
  var Flags: OleVariant; var TargetFrameName: OleVariant;
  var PostData: OleVariant; var Headers: OleVariant; var Cancel: WordBool);
begin
  PageControl1.ActivePage.Caption := URL;
end;

Ach so: Dieses Delphi-Projekt hatte die gleiche Aufgabe wie deine Frage - neue Seiten in einem eigenen TabSheet öffnen.

Zitat:

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

:wiejetzt: Was willst du mit Enter und Tab machen?

[jAcK oRsEn]

ja das alte Problem mit Textarea Tab taste und Enter taste!


Welche durch die MSGHandler funktion angefangenund verarbeitet wird.

[MathiasSimmack]

Zitat:

Zitat von jAcK oRsEn

ja das alte Problem mit Textarea Tab taste und Enter taste!

Ich stehe gerade auf dem Schlauch ... :oops: ... welches Problem gibt es da?