Работа с PageControl

[Djem1991]

Здравствуйте всем)

Вот столкнулся с проблемой. Есть компонент PageControl, вкладка, например, с Memo и Edit. По нажатию на кнопку нужно добавить новую вкладку с теми же компонентами, что были.

Вкладку программно смог добавить:

procedure AddPage(ACaption: string; AControl: TPageControl);
begin
  NewPage := TTabSheet.Create(AControl.Owner);
  NewPage.PageControl := AControl;
  NewPage.Caption := ACaption;
  NewPage.Show;
end;

Теперь не могу поместить на него компоненты...
Помогите кто чем может)

[Djem1991]

Вот подумал и получилось)))
Вот как добавил:

p

rocedure TForm1.Button2Click(Sender: TObject);
var E: TEdit;
begin
  AddPage(Edit1.Text,PageControl1);
  t:=NewPage;
  e:=TEdit.Create(Edit1);
  e.Parent:=NewPage;
  e.Left:=20;
  e.Top:=30;
end;

Извините за беспокойство)

[Djem1991]

Добавить я добавил) А кка после этого удалить эту вкладку?
т.е. нужно удалить ту вкладку на которой мы находимся сейчас...

[Шульц]

Могу только предположить, может через АктивПэйдже?
Или так

(sender as TTabSheet).destroy;

Мало ли, вдруг получиться

[Stilet]

нужно удалить ту вкладку на которой мы находимся сейчас

PageControl1.ActivePage.Free;