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.
TShape hérite de TGraphicControl ainsi que la classe de l'instance grpCtrl
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;
Partager