Копирование страниц на PageControl

[DelhiProgramer]

Как целиком скопировать страницу PageControl'а (то есть создать ещё одну такую же) со всеми компонентами, их свойствами и т.д.?

[Sciv]

Вот примерный код - копирование через буфер. Код кривоват, набросан на скорую руку, но работает. Лишь бы идея была понятна

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ImgList, ComCtrls;

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TrackBar1: TTrackBar;
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
    TS: TTabSheet;
    Stream: TFileStream ;
    Contr: array [0..10] of TControl;
    CL: TControl;
begin
  TS:=TTabSheet.Create(PageControl1);
  TS.PageControl:=PageControl1;
  TS.Caption:=TabSheet1.Caption;
  Stream := TFileStream.Create( 'AFile', fmCreate ) ;
  try
    For i:=0 to TabSheet1.ControlCount-1 do begin
      Stream.WriteComponent(TabSheet1.Controls[i]);
    end ;
  finally
    Stream.Free ;
  end;
  TS.Visible:=true;
  PageControl1.ActivePageIndex:=PageControl1.ActivePageIndex+1;
  Stream := TFileStream.Create( 'AFile', fmOpenRead ) ;
  try
    For i:=0 to TabSheet1.ControlCount-1 do begin
      Contr[i]:= Stream.ReadComponent( nil ) as TControl;
      Contr[i].Parent:=TS;
    end;
  finally
    Stream.Free ;
  end ;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  RegisterClass(TEdit);
  RegisterClass(TTrackbar);
  RegisterClass(TButton);
end;

end.

[Человек_Борща]

О_О а Frames уже отменили?

[Sciv]

О_О а Frames уже отменили?

Так я просто никогда с подобными задачами не сталкивался, максимум - динамическое создание компонент на форме. Потому написал то, что первое в голову пришло.

Напишите Ваш код, мне тоже интересно будет поучиться