Bei einer Komponente ein Panel zwischenschalten

[blackdrake]

Hallo.

Um eine sinnvolle Lösung wäre ich sehr dankbar, denn ich möchte wirklich gerne von TImage vererben und lediglich ein Panel dazwischenschalten, damit ich ein WinControl-Handle zum Zeichnen bekomme.

Das mit der Exception verstehe ich nicht ganz:

Delphi-Quellcode:

constructor TPaneledImage.Create(AOwner: TComponent);
begin
  FPanel := TPanel.Create(AOwner);

  inherited Create(FPanel); // **

  // Eigenschaften für das Image im Panel festlegen
  Parent := FPanel;
  Align := alClient;
  Visible := true;
end;

Bei ** ist ja das FPanel bereits mittels Create() erstellt worden. Wieso soll dann ** fehlschlagen? Und welches SetBounds (von TPaneledImage oder TPanel) wird warum aufgerufen? Ich kann den Gedankengang noch nicht ganz nachvollziehen, wieso es fehlschlägt.

Beim Destroy (hat aber nichts mit dem Create-Fehler zu tun) könnte es zum Problem kommen, wenn das TPanel freigegeben wird, da es das TPaneledImage own'ed und somit mit freigibt, bevor der Rest des Destructors von TPaneledImage aufgerufen wird.

Gruß
blackdrake