Создание TWebBrowser

← →
ТехникПТО © (2005-01-27 08:42) [0]

Не могу на TTabSheet динамически создать WebBrowser.. мастера.. помогите!!! Очнь нада!!

← →
SergP © (2005-01-27 09:44) [1]

Я когда-то делал так: (использовал в PageControl не TTabsheet, а TMyTabSheet).

type
TMyTabSheet = class(TTabSheet)
public
WB: TWebBrowser;
constructor create(AOwner:TComponent); override;
destructor destroy; override;
end;

....

constructor TMyTabSheet.create(AOwner:TComponent);
begin
inherited create(AOwner);
caption:="Пусто";
ImageIndex:=1;
WB:=TWebbrowser.Create(self);
TOleControl(WB).Parent:=self;
WB.Align:=alClient;
end;

destructor TMyTabSheet.destroy;
begin
FreeAndNil(WB);
inherited destroy;
end;

Создание TWebBrowser Найти похожие ветки