| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Создание TWebBrowser

ТехникПТО ©   (2005-01-27 08:42:00) 

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

---

SergP   (2005-01-27 09:44:00) [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;

---

Наверх