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.