tpanel in tpanel, dynamisch

[alex.666]

Hi!

ich versucher verzweifelt über eine prozedure dynamisch tpanels zu erzeugen.

Delphi-Quellcode:

var
p1 : tpanel;
p2 : tpanel;


procedure buttonclick(...);
begin
  makepanel(p1, panel1);
  makepanel(p2, p1);
end;

procedure makepanel(src: tpanel; target: tpanel);
begin
  src.create(target);
  src.parent(target);
end;

das p1 macht er mit, weil das panel1 NICHT dynamisch erstellt wurde. aber das p2 erstellt er mir nicht.
ich bin drauf gekommen, dass er mir target nicht an die procedure übergibt. es ist immer nil.
kann mir da jemand helfen. wenn ja, bitte mit beispiel code.

danke.

[Die Muhkuh]

Objekte werden so erzeugt:

Delphi-Quellcode:

Object := TObject.Create(...);

;)

[alex.666]

eh klar, sorry. ich hab den code auch nur so schnell ins forum geschriben.
im programm hab ich eh so.
aber es funktioniert immer noch nicht... :-(