probleme avec les Tshape

Bonjour,

J'ai implémenté en Delphi une classe qui contient un TShape :

TCase = class(TGraphicControl)
private
rect : TShape; //apparence graphique de l'étape
public
constructor Create(AOwner: TComponent); override;
end;

procedure TCase.Create(AOwner:TComponent);
begin
...
rect := TShape.Create(AOwner);
rect.Parent := AOwner;
...
end;

Je veux ensuite afficher "rect" sur une TForm.
Ceci ne marche pas car rect.Parent attend un TWidgetControl. J'ai essayé plusieurs solutions et je n'ai pas trouvé comment faire pour qu'il n'y ait pas d'erreur

Que dois-je faire pour que cela marche, je ne vois pas ?

Merci d'avance à tous pour l'aide.

Dans le cas d'une application Win32, un composant a besoin d'un TWinControl comme propriétaire.
Je me suis donc dit qu'il devait avoir besoin d'un TWidgetControl dans le cas d'une application CLX !
Bingo !

constructor TCase.Create(AOwner: TComponent); begin inherited; rect := TShape.Create(AOwner); rect.Parent := AOwner as TWidgetControl; end;

Vérification faite, c'est exactement ce que ton composant attendait.
May Delphi be with you

Excellent je te remercie.
çà marche nickel.
Je me suis vraiment galléré pendant toute une journée là dessus.