Динамическое создание TabSheet по шаблону

[Shad0w64bit]

Здравствуйте! Возможно ли создавать TabSheet в PageControl на основе шаблона... т.е. создать один TabSheet с компонентами (наподобии окна сообщений в qip ), а далее на его основе добавлять новые вкладки.
Если можно то пример))

[ex.cluz]

Возможно ли создавать TabSheet в PageControl на основе шаблона

Возможно.

а далее на его основе добавлять новые вкладки

Думаю, вам можно либо с фреймами "познакомиться" поближе, либо в цикле перебирать все контролы на том TabSheet, на котором они уже созданы и, соответственно, создавать на том, котором надо.

[Shad0w64bit]

Я так понял что надо создать фрэйм с заранее заготовленными компонентами а при создании таба в нем создавать фрейм? и вопрос как тогда обратится например к Edit на фрейме или обработать нажатие кнопки..

[dr.Chas]

Эта процедура сойдёт за шаблон?

var 
tab: TTabSheet;   
Memo: Tmemo;     


procedure addTab;
begin
  tab:=TTabSheet.Create(self);
  tab.PageControl:=PageControl1;
  tab.Caption:='Новая  вкладка '+IntToStr(PageControl1.PageCount);
  tab.PageControl.ActivePage:=tab;

  //////////////////////////
  memo:=TMemo.Create(self);
  memo.Parent:=Tab;
  memo.Align:=alClient;
  memo.SetFocus;

  Form1.Caption:=objTab.Caption;
end;

[Shad0w64bit]

Сейчас приблизительно все так и сделано.. Но некоторые компоненты уезжают и в них почему то не работает Anchors akRight. Хотелось бы реализовать это как то проще.

Мой вариант создания табов:

procedure TForm1.Button1Click(Sender: TObject);
begin
  PageControl1.TabIndex:=PageControl1.PageCount-1;

  with TTabSheet.Create(Self) do
  begin
    PageControl := PageControl1;
    Caption :='Новая  вкладка'+IntToStr(PageControl1.PageCount);
    PageControl1.SelectNextPage(True);
 end;
end;

А далее создаются компоненты на этой вкладке

[Shad0w64bit]

Приблизительно разобрался:
главная форма:

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
  PageControl1.TabIndex:=PageControl1.PageCount-1;

  //создание таба
  with TTabSheet.Create(Self) do
  begin
    PageControl := PageControl1;
    s:=IntToStr(PageControl1.PageCount);
    Caption :='Новая  вкладка'+s;
    PageControl1.SelectNextPage(True);
    tag:=strtoint(s);
 end;
 //Создание фрейма
 with TEFrame.Create(Self) do
  begin
    Parent:=PageControl1.Pages[PageControl1.TabIndex];
    Name:='frame'+s;
    tag:=strtoint(s);
 end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
//Заполнение поля Edit
  TEdit(PageControl1.Pages[PageControl1.TabIndex].Controls[0].FindComponent('Edit1')).Text:='ля л ля ля';
end;

Фрэйм:

procedure TEFrame.Button1Click(Sender: TObject);
begin
//информация
Showmessage('Таб-'+inttostr(self.Tag)+#13#10+
  Edit1.Text);
end;

Это то что у меня получилось. Работает!! но раньше дело с динамическими объектами не имел.. подскажите возможно как то упростить этот код или записать его более правильно т.е. создание компонентов иным способом или обрашение к ним