Twebbrowser auf einem TabSheet zur Laufzeit erzeugen

[Klaus01]

Hallo,

ich habe da ein hoffentlich kleines Problem.
In einem Projekt möchte ich zur Laufzeit TabSheets erzeugen und auf
diese erzeugten TabSheets noch einen Webbrowser legen.
Der Webbrowser soll das ganze TabSheet bedecken, tut er aber nicht.
Er quetscht sich in die obere rechte Ecke.

Vielleicht hatte ja jemand von Euch schon mal ein ähnliches Problem und weiß eine Lösung.

Hier ist der Delphicode:

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    Button1: TButton;
    Panel1: TPanel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  ttabsheet2 = class(TTabsheet)
    webbrowser: TWebbrowser;
    alarmlist : TComboBox;
    alarmpanel: TPanel;
  private

  public
   constructor create(AOwner:TComponent);override;
   destructor  destroy; override;
  end;


var
  Form1: TForm1;


implementation

{$R *.dfm}


constructor TTabSheet2.create(AOwner:TComponent);
begin
  inherited create(AOwner);
  self.Align:=alClient;
  self.Color:=0;
  webbrowser:=Twebbrowser.Create(self);


  alarmpanel := TPanel.Create(self);
  alarmlist := TCombobox.Create(self);

end;

destructor TTabsheet2.destroy;
begin
  alarmpanel.Free;
  alarmlist.Free;
  webbrowser.Free;
  inherited destroy;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  tabsheet:TTabSheet2;
begin

  tabsheet:=TTabSheet2.create(PageControl1);
  tabsheet.Show;
  tabsheet.Visible:=true;
  tabsheet.PageControl:=PageControl1;

  // bindet den Webbrowser an das Tabsheet
  tabSheet.webbrowser.ParentWindow:=tabsheet.Handle;

  // Webbrowser soll im gesamten TabSheet angezeigt werden
  tabsheet.webbrowser.Align:=alClient;

  tabsheet.Anchors:=[akLeft,akTop,akRight,akBottom];



  tabSheet.webbrowser.Navigate('www.google.de');


end;

end.

Grüße
Klaus

[marabu]

Hallo Klaus,

besser du machst es so:

Delphi-Quellcode:

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  ts: TTabSheet;
  wb: TWebBrowser;
begin
  ts := TTabSheet.Create(PageControl);
  ts.Caption := 'Window &' + Chr(Ord('0') + PageControl.PageCount);
  ts.PageControl := PageControl;
  wb := TWebBrowser.CreateParented(ts.Handle);
  wb.Align := alClient;
  ts.InsertControl(wb);
  PageControl.ActivePage := ts;
  wb.Navigate('http://www.google.de');
end;

Grüße vom marabu

[Klaus01]

Hallo marabu,

werde ich so ausprobieren.

Danke für die schnelle Hilfe.

Grüße
Klaus