Доброго времени суток. У меня имеется статический объект, и необходимо создавать динамические копии данного объекта. Объект сам панель, на этой панели расположены элементы у которых имеются события. Вот, как можно создать динамическую копию этой панели при это не теряя всех свойств элементов которые находятся на данной панели?
Код:
var
MainPanel: TMemoryStream;
procedure TBrowserForm.FormCreate(Sender: TObject);
begin
MainPanel:= TMemoryStream.Create;
MainPanel.Position:=0;
MainPanel.WriteComponent(MainPagePanel);
end;
procedure TBrowserForm.t1Click(Sender: TObject);
var
tabs: TTabSheet;
Panel: TsPanel;
begin
tabs:=TTabSheet.Create(Self);
tabs.PageControl:=MainPageControl;
tabs.Caption:='New Tab Page';
tabs.Show;
Panel:= TsPanel.Create(Self);
Panel.Parent:= PageControl1.ActivePage;
MainPanel.Position:=0;
MainPanel.ReadComponent(Panel);
end;