Discussion :

[sovitec]

Bonjour,

Pour une opération de Drag&Drop je voudrais tester le type du composant source, j'ai donc un test du genre :

Code :

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

Accept := (Source is TMaClasse) or (Source is TListBox)

Si la source est un TListBox ça marche bien, par contre si l'objet est de type TMaClasse non.
Pourtant au debugger Source.ClassName me donne bien TMaClasse, et Source.ClassNameIs('TMaClasse') renvoie vrai.

Une idée sur la source de ce comportement ?

Merci.

[sovitec]

Après avoir ajouté plein de lignes de code pour voir ce qui se passait ça a fini par marcher comme attendu. En enlevant ces lignes de code ça continue de marcher. Je ne sais pas ce qui s'est passé, peut-être un bout de code dont la compilation n'était pas à jour.

Ce post ne sert plus à rien.

[guillemouze]

TMaClasse est un pointeur qui pointe vers la definition de ta classe dans l'image memoire de l'exe (l'option "Base de l'image" il me semble). Donc, si ta classe a ete crée dans une autre application ou une dll, l'adresse de cette classe ne sera pas forcement la meme, d'où le resultat.

Par contre, je ne suis pas absolument sûr de ce que j'avance. Si quelqu'un pouvait le confirmer ou l'infirmer ...