Bonjour,
Pour une opération de Drag&Drop je voudrais tester le type du composant source, j'ai donc un test du genre :
Si la source est un TListBox ça marche bien, par contre si l'objet est de type TMaClasse non.
Code : Sélectionner tout - Visualiser dans une fenêtre à part Accept := (Source is TMaClasse) or (Source is TListBox)
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.
Partager