Прблема с вкладками: создание на нём компонента.

[blackstersl]

Привет. У меня возникла проблема с созданием вкладок и создания на нём компонента. Сразу говорю что весь форум посмотрел, не то что меня интересует. Проблема вот в чём: создаю новую вкладку, и потом хочу создать компонент на нём, в моём случае это TWebBrowser. Вкладка создаётся, всё красиво, но WB не создаётся.В чём проблемка? Вот код:

procedure TForm1.sSpeedButton4Click(Sender: TObject);
var
t:tstabsheet;
wb:TEmbeddedWB;
begin
t := tstabsheet.Create(self);
t.Caption := 'Новая';
wb := tEmbeddedWB.Create(self);
t.PageControl := spagecontrol1;

spagecontrol1.ActivePage := t;

end;

Спасибо.

[Пепел Феникса]

procedure TForm1.sSpeedButton4Click(Sender: TObject);
var
t:tstabsheet;
wb:TEmbeddedWB;
begin
t:=TTabSheet.Create(nil);
t.PageControl:=spagecontrol1;
t.Caption := 'Новая';
wb:=TEmbeddedWB.CreateParented(t.Ha ndle);
<тут настрой расположение и прочие свойства wb>
wb.ParentWindow:=t.Handle;
t.CreateParentedControl(wb.Handle);
spagecontrol1.ActivePage := t;
end;

я чуток конечно намудрил, но оно работает

[blackstersl]

Спасибо конечно, но при нажатии на кнопу почему то выбивает ошика -(.

Блин, это у меня делфа глючит, всё нормально. А вот как сделать так чтоб кнопка например "goback" работала не только на основном Twebbrowser а и на всех вкладках.

[Kostia]

procedure TForm1.Button1Click(Sender: TObject);
var
  t:TTabSheet;
  wb: TWebBrowser;
begin
  t:=TTabSheet.Create(Self);
  t.PageControl:=PageControl1;
  t.Caption:='button';
  wb:=TWebBrowser.Create(t);
  wb.ParentWindow:=t.Handle;
  wb.Navigate('http://programmersforum.ru/showthread.php?p=225372#post225372');
end;

[blackstersl]

С тем я уже разобрался, как можно реализовать второй вопрос? Спасибо.

[Kostia]

Можно уточнение, вы хотите, чтобы все браузера откатили назад, или только то, который находится на выделенной вкладке?

[blackstersl]

только тот что находится на выделеной вкладке.
Вот ещё один "прикол" , когда пишу:

procedure TForm1.sSpeedButton4Click(Sender: TObject);
var
t:tstabsheet;
wb:TEmbeddedWB;
begin
t:=TTabSheet.Create(nil);
t.PageControl:=spagecontrol1;
t.Caption := 'Новая';
wb:=TEmbeddedWB.CreateParented(t.Handle);

wb.align := alclient; //не работает

wb.ParentWindow:=t.Handle;
t.CreateParentedControl(wb.Handle);
spagecontrol1.ActivePage := t;
end;

Подскажите.

[Kostia]

Посмотри примерчик.

[Пепел Феникса]

для GoBack попробуй через
PageControl1.ActivePage.Controls

а насчет выравнивания...лучше всего сам Ресайзь его, ибо это не трудно

[blackstersl]

спасибо -) Но вот как combobox писать web страницы(которые нужно открыть) чтоб для каждой вкладки своя страница?