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

[russian-stalker]

Как сделать сабж, наподобие ие7 или опера

[Ozerich]

Компонент TpageControl.
Правой кнопкой по нему в режиме проектирования и добавить вкладку

[russian-stalker]

Дак ониж не будут скрываться и их нельзя сделать бесконечное кол-во

[russian-stalker]

Помогите, просто сильно надо

[Alter]

Сообщение от russian-stalker

Дак ониж не будут скрываться и их нельзя сделать бесконечное кол-во

можно, упрощёное написание:

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet; //
    procedure Button1Click(Sender: TObject);
  private
    procedure DeletePage(T:TTabSheet);
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

//создания новой вкладки
procedure TForm1.Button1Click(Sender: TObject);
var T:TTabSheet;
    B:TButton;
begin
   T := TTabSheet.Create(nil);
   T.PageControl := PageControl1;
   T.Caption := '-XXX-';
   PageControl1.ActivePage := T;
end;


procedure TForm1.DeletePage(T:TTabSheet);
begin
   PageControl1.ActivePage := PageControl1.Pages[0];
    T.PageControl := nil;
    T.Free;
end;

[russian-stalker]

А второе можно ли повесить тоже на кнопку? Т.Е. это procedure TForm1.DeletePage(T:TTabSheet);