Wohin geht der Elternteil?

[uvinul]

Hi, habe noch einmal eine Frage:

Ich habe eine eigene Klasse

Code:

TMyCustomControl = class(CustomControl)
public
  CustomControl: TCustomControl
end;

wovon ich eine Instanz auf dem Frame Frame1, welches auf Form1 liegt, habe.

Jetzt wird folgender Code in Form1 ausgeführt:

Code:

  with Frame1 do
  begin
    MyCustomControl := TMyCustomControl.Create(Frame1);
    with MyCustomControl do
    begin
      Parent := Frame1;
      CustomControl := CustomControl.Create(MyCustomControl);
      CustomControl.Parent := MyCustomControl;
    end;
  end;

Die Anzeige erfolgt zwar richtig, aber CustomControl.Parent scheint auf kein Objekt zu verweisen, was beispielsweise auch

Code:

  showmessage(CustomControl.Parent.Name);

ergibt.

Wo liegt mein Fehler?