Discussion :

[peter27x]

la dernière j'espère !

Maintenant que la variable listeImagesCligno est bien crée (c'est un TListObject), je me retrouve avec un plantage à la ligne en rouge (issue d'une réponse d'un membre du site) pour assigner tous les attributs d'un coup depuis un TShape déjà existant:

Code :

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

1
2
3
    
listeImagesCligno.Add(TShape.Create(Self));
(listeImagesCligno.Items[0] as TShape).assign(CadreImageDepart);

Le projet .... a provoqué une classe d'excpetion EConvertError "impossible d'affecter TShape à TShape" ...

C'est quoi qui va pas là !?

JE vais reessayer avec mes bons vieux listeImage....[i].brush = cadreimage.brush; pour voir si ça passe.

Merci...

[peter27x]

pour info :

apres test, listeImage...[i].brush := cadre.....depart.brush;

passe sans plantages...

Par contre je comprends pas pourquoi le TShape créé ne s'affiche pas à l'écran (je lui fais bien un .visible := true)... ?

Merci.

[tourlourou]

il est possible que le TShape n'implémente pas la méthode Assign, d'où ce type d'erreur...

[peter27x]

il est possible que le TShape n'implémente pas la méthode Assign, d'où ce type d'erreur...

et oui... l'emmerdant, c'est que le cadreImageDepart est contenu dans un panel lui même dans un autre panel... or, mon shape créé via le TObjectList se retrouve je suppose sur la formMain, et non sur le panel qu'il faudrait, ce qui doit expliquer pourquoi je ne le vois pas (il doit être "derrière" le panel !)...

Y a t'il moyen de déplacer, dans le code, les shapes créés du mainForm vers le panel désiré ?

MErci.

[peter27x]

et oui... l'emmerdant, c'est que le cadreImageDepart est contenu dans un panel lui même dans un autre panel... or, mon shape créé via le TObjectList se retrouve je suppose sur la formMain, et non sur le panel qu'il faudrait, ce qui doit expliquer pourquoi je ne le vois pas (il doit être "derrière" le panel !)...

Y a t'il moyen de déplacer, dans le code, les shapes créés du mainForm vers le panel désiré ?

MErci.

Et oui, il m'a suffit de faire un Txxx.parent = cadreDepartxxx.parent !