Eigene Komponete / Darstellungsfehler?!

[Uwe Raabe]

Ich kann jetzt nicht prüfen, ob das dein Problem löst, aber für solche zusammengesetzten Komponenten sollte man SetSubComponent direkt nach dem Create verwenden.

Delphi-Quellcode:

constructor FAMCard.Create(AOwner: TComponent);
begin
  inherited;

  // Default size of fam card
  self.Width := 600;
  self.Height := 400;

  // Create header of card
  Header := FAMPanel.Create(self);
  Header.SetSubComponent(true);
  Header.Parent := self;
  Header.Color := _CorporateDesign.gray;
  Header.Align := alTop;
  Header.Height := 90;

  // Create content of card
  Content := FAMPanel.Create(self);
  Content.SetSubComponent(true);
  Content.Parent := self;
  Content.Color := _CorporateDesign.white;
  Content.Align := alClient;

  // Create footer of card
  Footer := FAMPanel.Create(self);
  Footer.SetSubComponent(true);
  Footer.Parent := self;
  Footer.Color := _CorporateDesign.gray;
  Footer.Align := alBottom;
  Footer.Height := 90;

end;