Вкладки веб-браузера в TabCantrol

[саша40]

Привет. Создал загатовку с tabcontrol. На tabconrol только компонент WebBrowser. Надо:
Дополнительный(стороний) сайт должен открыватся только в моем браузере(она дополнительная), а не в IE(Internet Exproler).
В текст вкладки должен состоять только из имени сайта(что-то.домен).
Есть последняя вкладка(+) она должна быть всегда последней.
При клике на последнюю вкладку должна открыватся вкладка перед ней(даже в первом случае).
КАК ВСЁ ЭТО СДЕЛАТЬ? HELP!!!!

[Человек_Борща]

Дополнительный(стороний) сайт должен открыватся только в моем браузере(она дополнительная), а не в IE(Internet Exproler).

Создаете вкладку с WB и передаеье в WB данные сайта куда переходит юзер

В текст вкладки должен состоять только из имени сайта(что-то.домен).

Обычно это <title> тег в html коде страницы сайта.

Есть последняя вкладка(+) она должна быть всегда последней.
При клике на последнюю вкладку должна открыватся вкладка перед ней(даже в первом случае).

При нажатии на + текущая вкладка становится страницей, а за ней создается вкладка с +.

[саша40]

Сообщение от Человек_Борща

1)Создаете вкладку с WB и передаеье в WB данные сайта куда переходит юзер

В текст вкладки должен состоять только из имени сайта(что-то.домен).

2)Обычно это <title> тег в html коде страницы сайта.



3)При нажатии на + текущая вкладка становится страницей, а за ней создается вкладка с +.

1) А как получить эти данные(программно конечно)?
2)подробнее плиз
3)можно поподробней.

[-=Virus=-]

Создаём PageControl и тут же на нём создаём webbrowser и объявляем процедуры у webbrowser нужные нам.

 private
    { Private declarations }
    procedure progressChange(ASender: TObject; Progress,ProgressMax: Integer);
    procedure NewWindow2(ASender: TObject; var ppDisp: IDispatch; var Cancel: Word

var
  Form1: TForm1;;
  web:TWebBrowser;
  tab: TTabSheet;

begin
  tab := TTabSheet.Create(PageControl1);
  tab.PageControl := PageControl1;
  tab.Visible := true;
  PageControl1.ActivePage := tab;

  web := TWebBrowser.Create(tab);
  web.Silent:=true;
  TOleControl(web).Parent := tab;
  web.Visible := true;
  web.Align:=AlClient;
  tab.Caption:='New Page';
  web.OnProgressChange:=ProgressChange;
  web.OnNewWindow2:=NewWindow2;
  web.OnCommandStateChange:=CommandStateChange;
  PageControl1.ShowCloseBtns:=True; 
end;

Далее создаём процедуры для webbrowser

procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; const URL: OleVariant);
begin
 ComboBox1.Text:=web.LocationURL;
 PageControl1.activePage.Caption:=WebBrowser.OleObject.Document.title;
end;

При клике на ссылку в webbrowser создаём новую вкладку и соответственно передаём все параметры туда

procedure TForm1.WebBrowser1NewWindow2(ASender: TObject; var ppDisp: IDispatch;
  var Cancel: WordBool);
begin


  tab := TTabSheet.Create(PageControl1);
  tab.PageControl := PageControl1;
  tab.Visible := true;
  PageControl1.ActivePage := tab;

  web := TWebBrowser.Create(tab);
  web.Silent:=true;
  TOleControl(web).Parent := tab;
  web.Visible := true;
  web.Align:=AlClient;
  web.OnProgressChange:=ProgressChange;
  web.OnNewWindow2:=NewWindow2;
  web.OnCommandStateChange:=CommandStateChange;
  ppDisp:=Web.ControlInterface;
  tab.Caption:='New Page';
end;

Писал на память так что могут быть ошибки в коде.