Création dynamique de composants
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:
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
