Sag das doch gleich!
Ich hab etwas gebastelt, das funktionieren müsste, aber es ist - gebe ich zu - nicht die feine Art:
Delphi-Quellcode:
function CloneComponent(Component: TComponent): TComponent;
var
Stream: TStream;
OldName, NewName: string;
i: Integer;
begin
Stream := TMemoryStream.Create;
try
OldName := Component.Name;
i := 0;
repeat
Inc(i);
NewName := RightStr(Component.ClassName, Pred(Length(Component.ClassName))) + IntToStr(i);
until not Assigned(Component.Owner.FindComponent(NewName));
Component.Name := NewName;
Stream.WriteComponent(Component);
Component.Name := OldName;
Stream.Seek(0, soFromBeginning);
RegisterClass(TComponentClass(Component.ClassType));
Result := TComponentClass(FindClass(Component.ClassName)).Create(Component.Owner);
while Result.ComponentCount > 0 do
begin
RegisterClass(TComponentClass(Result.Components[0].ClassType));
Result.Components[0].Free;
end;
Stream.ReadComponent(Result);
finally
FreeAndNil(Stream);
end;
end;
Das Komponenten-Löschen mache ich, damit sie nicht doppelt erstellt werden, wenn die Komponente aus dem Stream gelesen wird. Es geht auch besser, dann müsstest du aber selber ein Streaming entwickeln, das erst nachschaut, ob das gelesene Objekt bereits existent ist, und wenn ja, dann nur die Eigenschaften setzt. Irgendjemand hier hat so ein Streamingsystem mal entwickelt, such mal danach.
P.S.:
Dieser Artikel über die RTTI dürfte dich sehr interessieren!