TPersistent.Assign...Ist es echt so umständlich hier?

[mojo777]

:-)
abend,
ich bin gerade etwas enttäuscht worden von der methode. sie ist zwar zum kopierne da, kopiert aber in den meisten fällen nix.
so wie ich mitbekommen habe, muss man diese virtual funktion überschreiben.
so. nun will ich aber beliebige panles mit beliebigen inhalten kopieren. gibts da ein super-rezept?
ich stell mir das mal so grob vor:

Delphi-Quellcode:

alle objekte aus der quelle in eine collection packen 
ein neues panel erstellen, 
im neuen panel wiederum objekte erstellen und dann .assign?

oder hat zufällig jemand schon was fertig?


gruß

[Luckie]

Warum kopiert sie nichts?

[mojo777]

EConvertError kommt. "kann TPanelm nicht zu TPanel" hinzufügen

[Luckie]

Zitat:

Zitat von mojo777

EConvertError kommt. "kann TPanelm nicht zu TPanel" hinzufügen

Das ist doch eine ganz andere Aussage als "kopiert nichts". :roll:

[mojo777]

aber er kopiert doch nix. :-)

[Luckie]

Wenn ich mein Auto zu Schrott fahre, dann fährt es auch nicht mehr, aber doch aus einem ganz anderen Grund, asl wenn der tank leer ist. Wenn der Tank leer ist kann man ihn wieder füllen, wenn das Auto schrott ist, dann ist es vorbei. :roll:

Also wie wäre es sich um den Fehler zu kümmern? Aber ohne dass du uns Code zeigst, was du da eigentlich machst wird das nichts.

[mojo777]

hallo.
nun ich dachte der fehler wäre hier schon bekannt. sorry.
hier ist das bild von dem zur designlaufzeit erzeugtem panel welches in mehrere tabpages kopiert werden soll. (also selbe TForm).
http://pilaf.ath.cx/pub/shared_pics/panel1.jpg
Ich mache dann (erstmal) nach einem buttonklick folgendes:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var neuesPanel:TPanel;
begin
PanelNeu.Assign(plVP_alt);
end;

die fehlermeldung lautet:

Zitat:

'Cannot assign a TPanel to a TPanel'...

das problem lässt sich auch mit copy&paste lösen. aber hier würde ich das schon gerne etwas stilvoller gestalten. :-)

gruß

Edit: da fällts mir ein, vielleicht kann ich auch das panel immer nur "rumschieben". also je welche TabPage gerade offen ist, dahin schieben?
das mit kompieren ist schon etwas kompliziert.... die ganzen objekte in der panel müssen ja auch kopiert werden und die namen sollen auch geändert werden..... :-(