Передать Title загружаемой страницы в Caption созданной вкладки PageControl-a

[Verst]

При создании вкладки, нужно чтоб caption этой вкладки принимал значение загружаемой в эту вкладку веб страницы.
При смене вкладок название вкладки меняется я сделал, но нужно что бы caption задавался в момент создания вкладки.

Создание вкладки:

function Tform1.CreateTabBrowser(sURL: string; sCaption: string):TTabSheet;
var
  ts: TTabSheet;
  WB: TWebbrowser;
  tt:String;
begin
 ts:= TTabSheet.Create(PageControl1); 
 Result:=ts;
     try
    ts.PageControl:=PageControl1 ;
    ts.Parent := PageControl1;
    ts.Caption := sCaption;
    ts.PageIndex := PageControl1.ActivePageIndex + 1;
    ts.Hint := sURL;

    WB := TWebbrowser.Create(ts);

    TControl(WB).Parent := ts;
         WB.OnNewWindow2 := WebBrowser1NewWindow2;
         WB.OnDocumentComplete := WebBrowser1DocumentComplete;
        wb.OnProgressChange:=WebBrowser1ProgressChange;

    WB.Align := alClient;
    WB.Silent := True;
    WB.Visible := True;

    PageControl1.ActivePage := ts;

    if Trim(sURL) <> '' then
    begin
      WB.Navigate(sURL);
    end;


     except
       ts.Free; 
     end;
end;

При переключении вкладок:

procedure TForm1.PageControl1Change(Sender: TObject);
var
  CurrentWB: TWebbrowser;
begin
 CurrentWB := TWebbrowser(PageControl1.ActivePage.Controls[0]);
 if PageControl1.ActivePage.Caption <> 'First Page' then
 PageControl1.ActivePage.caption:=CurrentWB.LocationName;

  ComboBox1.Text := CurrentWB.LocationURL;
end;

[Marsel737]

Verst, если это был вопрос, то пропиши в CreateTabBrowser такую строчку:

with PageControl1 do
ActuvePage.Caption:=CurrentWB.Locat ionName;

Если не ошибаюсь, потому что по памяти пишу, только возникает проблема, если Title будет слишком большим, как у некоторых сайтов, то и название вкладки будет таким же, поэтому нада както это тоже учитывать

[Verst]

Сообщение от Marsel737

Verst, если это был вопрос, то пропиши в CreateTabBrowser такую строчку:

with PageControl1 do
ActuvePage.Caption:=CurrentWB.Locat ionName;

Если не ошибаюсь, потому что по памяти пишу, только возникает проблема, если Title будет слишком большим, как у некоторых сайтов, то и название вкладки будет таким же, поэтому надО как-то это тоже учитывать

Пробывал, у вкладки название становиться пустым

[Marsel737]

Verst, а может тогда в таймер ту же процу засунуть, наверно када создается вкладка в WebBrowser'е ещё пусто и потому название вкладки не отображается.

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

если новая вкладка то изначально ставьте пустое имя(придумайте сами)
а потом используйте события браузера(OnDocument четот там) для обновления.

[Marsel737]

Verst, правильно Пепел Феникса говорит, не нужен никакой таймер, в событие OnDocumentComplete или на OnDownLoadBegin прописать:

with PageControl1 do
ActuvePage.Caption:=CurrentWB.Locat ionName;

[Verst]

Пепел Феникса, спасибо...вот тока что сам понял это))
Думал написать решение на форуме, а Вы опередили.

При создании вкладки, надо указать

WB := TWebbrowser.Create(ts);
WB.OnNavigateComplete2:=WebBrowser1 NavigateComplete2;

ts - новая влкадка,
ну и в WebBrowser1NavigateComplete2 написать

PageControl1.ActivePage.Caption := TWebbrowser(Sender).LocationName;

PS написал вдруг кому пригодиться