Работа с вкладками.

[Dron712]

я делаю браузер, но есть проблемка. Я не представляю как можно организовать что при нажатии на какую либо ссылку открывалось не новое окно(это я уже сделал) а новая вкладка. Что бы открылась просто вкладка я могу сделать а что бы на ней еще и был компонент TwebBrowser незнаю.
Напишите примеры и посоветуйте при каком событии это все должно происходить.


Если такая тема уже была - уж простите.

[Stilet]

А что за вкладки? Какого рода? Какой компонент?

[xDyPx]

Как-то так:

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
var
  ts: TTabSheet;
  WB: TWebbrowser;
begin
  ts := TTabSheet.Create(PageControl1);
  try
    ts.PageControl := PageControl1;
    ts.Parent := PageControl1;
    ts.PageIndex := PageControl1.ActivePageIndex + 1;
    WB := TWebbrowser.Create(ts);
    TControl(WB).Parent := ts;
    WB.Align := alClient;
    WB.Silent := True;
    WB.Visible := True;
    WB.OnNewWindow2:=WebBrowser1NewWindow2;
    PageControl1.ActivePage := ts;
    ppDisp := WB.ControlInterface;
    //ts.Caption:='Загрузка...';
    Show;
    ts.Caption:=WB.LocationName;
    //WB.ControlInterface.

  except
    ts.Free;
    ts.Caption:=wb.LocationName;
end;

Только я не знаю как новой вкладке присвоить название загружаемой в ней странице