Komponente klonen

[mitch01]

Hi,

wie kann man eine visuelle Komponente klonen?
Alle Eigenschaften der Ursprungskomponente sollen übernommen werden.
Jedoch ohne das ich die einzelnen Eigenschaften nach dem erstellen zuweisen muss.

Ich hab mir das so gedacht:

Delphi-Quellcode:

TMyClass = TComponent
 private
 
 public
 function Clone: TMyClass;
 end;

function TMyClass.Clone: TMyClass;
begin

  --> Result := Self.ErzeugeNeueInstanzVonMir; <--

end;

So nicht:

Delphi-Quellcode:

TMyClass = TComponent
 private
 
 public
 function Clone: TMyClass;
 end;

function TMyClass.Clone: TMyClass;
 var tmp: TMyClass;
begin
  tmp := TMyClass.Create;
  tmp.irgendwas := self.irgendwas;
  Result := tmp;
end;

Gibts dafür vielleicht irgendeine Funktion? Hat jemand eine Idee?

Danke für die Hilfe.
Gruß Mitch