Panel mit Inhalt in gleiche Form kopieren

[Nalincah]

Ich hab eine Form, in der sind 4 Panels, mit verschiedenem Inhalt. Jetzt will ich diese Forms anzeigen, aber nicht die "echten" sondern kopien. Also zur Laufzeit erstelle. Wie mach ich das?

[Christian Seehase]

Moin Sebastian,

meinst Du das so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TForm2.Create(self) do begin
    Show;
  end;
end;

TForm2 ist Klasse des Formulares mit den Paneln.

[neolithos]

meinst du sowas???

Delphi-Quellcode:

frm := TForm.CreateNew(Application);
Panel1.Parent := frm;

[Nalincah]

Sorry, ich glaub ich hab mich verschrieben:

So ist richtig:

Zitat:

Ich hab eine Form, in der sind 4 Panels, mit verschiedenem Inhalt. Jetzt will ich diese Panels anzeigen, aber nicht die "echten" sondern Kopien. Also zur Laufzeit erstellen. Wie mach ich das?

Also ne Kopie von Panel1 in Form1 erstellen. Die Originale sind nur Vorlagen. Als Beispiel: Der Expression-Editor bei der QRExpr-Komponenten vom QuickReport

[Nalincah]

Weiß denn keiner Bescheid?
Ist echt wichtig?

[Honie]

Wenn Das nur Vorlagen sind, solltest Du Dir mal die Frames zu Gemüte führen,
dann dafür sind die da.

Ansonsten kannst Du nur über Form.Components alle Componenten durchlaufen und die,
deren parent auf PanelX ist in die neue Form kopieren (also createn und alle eigenschaften/events
nach Vorlage zuordnen.
Mußt aber daran denken, ob Du die ganze Sache rekursiv angehst, weil diese Komponenten könnten
dann ja wieder weitere Komponenten haben, deren parent Sie sind.

Einfacher geht es wirklich mit Frames, da der Frame mit allen Inhalten wie ein Objekt
behandelt werden kann und ein "einfaches " TFrame.create Dir alle Komponenten nach
Vorlage erzeugt.

[Nalincah]

Cool..Wusst ich garnicht..Werd ich gleich mal ausprobieren

[neolithos]

Schon mal an eine Panel-Klasse gedacht,

der die Controls dynamisch erzeugt werden?

[Nalincah]

Nö...Was heißt das??

[neolithos]

Du leidest entweder von TPanel besser TForm eine neue Klasse ab.

Im Konstruktor erzeugt du dann deine Control's dynamisch.

In der Art...

Delphi-Quellcode:

T??? = class (TForm)
public
  constructor Create(afOwner : TComponent); override;
end;

constructor T???.Create ...
begin
  inherited CreateNew(afOwner); // <--- CreateNew

  // Man kann an dieser stelle auch die Delphi-Form-Resource laden, die
  // man vorher in einem anderen Programm erstellt hat.
  // das ist relativ kompliziert - geht aber gut - selbst schon probiert
  // danach musst du googlen oder ne neue Frage erstellen
  with TEdit.Create(Self) do
    begin
      // bla bla bla
    end;
  ...
end;