Duplicating components at Run-Time

Question

Is there a simple way to duplicate all child components under parent component, including their published properties?

For example:

• TPanel
  • TLa

Answer 1

You can write the source component into a stream and read it back into the target component.

MemStream := TMemoryStream.Create;
try
  MemStream.WriteComponent(Source);
  MemStream.Position := 0;
  MemStream.ReadComponent(Target);
finally
  MemStream.Free;
end;

You may get problems with duplicate component names though.