При нажатии на кнопку добавить в PageControl

[VenMaster]

Подскажите как реализовать такую вещь: при нажатии на кнопку в pagecontrol добавлялась новая вкладка.

[_Dmitry]

  public
    TabSheet: array of TTabSheet; //массив вкладок
.................
procedure TForm1.Button1Click(Sender: TObject);
var
  n: integer;
begin
  n:=Length(TabSheet)+1; //количество вкладок
  SetLength(TabSheet,n); //увеличить размер массива на 1
  TabSheet[n-1]:=TTabSheet.Create(self); //создать вкладку, n-1 т.к. нумерация с 0
  TabSheet[n-1].Caption:='Вкладка '+IntToStr(n-1);
  TabSheet[n-1].PageControl:=PageControl1;
  PageControl1.ActivePage:=TabSheet[n-1]; //сделать активной
end;

[Stilet]

+ такая тема уже была. Иши поиском если пример Дмитрия не понравится.

[VenMaster]

Дмитрий большое спасибо)))

[Баламут]

Не совсем понимаю зачем здесь нужен динамический массив? PageControl и сам прекрасно справляется с хранением своих TabSheet'ов

[mihali4]

Сообщение от Баламут

Не совсем понимаю зачем здесь нужен динамический массив? PageControl и сам прекрасно справляется с хранением своих TabSheet'ов

М-м-да... Уж... Совершенно излишнее...
Вот пример создания и удаления вкладок с TMemo на них:

procedure TForm1.ButtonAddClick(Sender: TObject);
var mymemo: TMemo;
    mytab: TTabSheet;
begin
with PageControl1 do
begin
mytab:=TTabSheet.Create(Self);
mytab.PageControl:=PageControl1;
mytab.Caption:='Page '+IntToStr(PageCount);
end;
mymemo:=TMemo.Create(Self);
mymemo.Parent:=mytab;
mymemo.Align:=alClient;
end;

procedure TForm1.ButtonDelClick(Sender: TObject);
begin
if (PageControl1.PageCount>1) and (PageControl1.ActivePageIndex>0) then
PageControl1.ActivePage.Destroy;
//можно удалить все выбранные (активные), кроме первой, по одной есс-но
end;