написание браузера

[admin-one]

я создаю браузер , и имеются там новые вкладки вот как их создаю

if PageControl.TabIndex=PageControl.PageCount-1 then begin 
tab:=TTabSheet.Create(PageControl); 
tab.PageControl:=PageControl; 
tab.Caption:=blank; 
tab.PageIndex:=PageControl.PageCount-2; 
PageControl.TabIndex:=tab.PageIndex; 
wl:=TWebBrowser(WebBrowser1); 
wb:=TWebBrowser.Create(tab); 
with TWinControl(wb) do begin 
parent:=tab; // веб браузер активизация 
// загрузка параметров 
visible:=true; width:=wl.Width; height:=wl.Height; left:=wl.Left; top:=wl.Top; 
Align:=wl.Align;

и все удачно , но есть одно но ! я хочу чтоб при создании новой вкладки уже был заготовон форма , у меня есть готовый фрейм который я создал 2 вопроса :
1.Как объявить фрейм чтоб при нажатии на вкладку создалась новая вкладка с готовым фреймом
2.Как мне реализовать все в моем коде ? чтоб вкладка которая создает уходила вперед а создоваемая назад ...ну у меня это есть в моем коде осталось внедрить туда фрейм
заранее всем спасибо за ответы

неужели никто не знает ?

[Stilet]

var ts:TTabSheet;
begin
 ts:=TTabSheet.Create(PageControl1);
 ts.Parent:=PageControl1;
 ts.PageControl:=PageControl1;
 ts.Show;
 with TFrame.Create(ts) do begin
   Align:=alClient;
   Parent:=ts;
   Show;
 end;
end;

Подойдет?

[admin-one]

Stilet , спасибо большое а как мне сделать чтоб при нажатию на вкладку так работала ? именно на 1 вкладку только

[admin-one]

все сам нашел как сделать

procedure TForm1.PageControl1Change(Sender: TObject);
 var tab:TTabSheet; wl,wb: TWebBrowser;
 begin
 if PageControl1.TabIndex=PageControl1.PageCount-1 then begin
    tab:=TTabSheet.Create(PageControl1);
    tab.PageControl:=PageControl1;
    tab.Caption:=blank;
    tab.PageIndex:=PageControl1.PageCount-2;
    PageControl1.TabIndex:=tab.PageIndex;
    wl:=TWebBrowser(WebBrowser1);
    wb:=TWebBrowser.Create(tab);
    with TWinControl(wb) do begin
      parent:=tab; // веб браузер активизация
      // загрузка параметров
      visible:=true; width:=wl.Width; height:=wl.Height; left:=wl.Left; top:=wl.Top;
      Align:=wl.Align;
       with TFrame2.Create(tab) do begin
   Align:=alClient;
   Parent:=tab;
   Show;

end;
end;
end;

  end;

вот )

[Stilet]

чтоб при нажатию на вкладку так работала ?

Ох... Моя в это время уже баиньки дула

[admin-one]

можешь подкинуть готовый фрейм ? просто я то сделаю но вот его оформлять нужно много времени займет............может есть у кого то ? готовый ...буду благодарен

[Stilet]

Не, я TWebBrowser рулю.
Мне как-бы и не нужно было такое писать никогда.

[admin-one]

эх где ж ты раньше был у меня столько вопрос было по TWebBrowser .....да и щас парочка осталась ) если не сложно ответь буду благодарен
1.как сделать поиск в адресной строке ?
2.кнопка для добовления закладок
3.(НЕМНОГО НЕ В ТЕМУ ) как main menu и его вкладки передвинуть ? на бок например ? заранее спасибо за ответы

[Stilet]

1.как сделать поиск в адресной строке ?

TWebBrowser -а??? Дак у него то и нет ее собственно говоря.

кнопка для добовления закладок

Опять таки этот компонент не имеет закладок. Делай на каждую отдельную закладку отдельный его экземпляр

[admin-one]

но это же связоно с этим

вот это вроде чтоб добавить заклдаку

AddFavFrm.AddAddress.Text := edURL.Text;
AddFavFrm.Position := poMainFormCenter;
AddFavFrm.ShowModal;

но дает ошибку в AddFavFrm ее вроде надо объявить но как ?