Discussion :

[persam]

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

[Cl@udius]

Salut

et ainsi ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
  shape.Parent := TWinControl(grpCtl);

@+

[persam]

Non...
J'ai une autre erreur - EAccessViolation.

[Pedro]

Salut
Je vais peut-être dire une bêtise mais es-tu sûr qu'un TGraphicControl accepte des contrôles? Si ce n'est pas le cas, tu ne peux pas le définir en tant que parent