Bonjour,

J'aimerais crééer dynamiquement une série d'objets (instance de la meme classe héritant de TGraphicControl) et les placer sur un autre TGraphicControl. Mon problème est que la propriété Parent des objets veut une référence d'un objet de type TWinControl. Y a t-il moyen de faire un casting?

TGraphicControl et TWinControl héritent tous les deux de TControl.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
for i := 0 to max do
  begin
    SetLength(FShapeArray,i+1);
    shape := TShape.Create(Self);
 
    shape.Parent := grpCtl;  <-- que mettre ici , j'ai essayé ceci mais c'est pas correct TControl(grpCtl) as TWinControl
 
 
    shape.Tag := i;
    shape.Caption := 'val '+ inttostr(i);
    FShapeArray[i] := shape;
  end;
TShape hérite de TGraphicControl ainsi que la classe de l'instance grpCtrl