Forum AtoutFox : Bindevent clic et double clic   

jeu. 23 juillet 2015, 10h30
Thibaut
France
atoutfox.public.association

Bindevent clic et double clic

Bonjour,

Dans un grid dont je génère les colonnes par programmation, en fonction de la table qui lui est associée, je lie les évènements clic et double clic de chaque champ texte à une méthode via la fonction bindevent.
Si je ne lie que l'un ou l'autre tout fonctionne parfaitement. Par contre si je lie les deux le double clic ne fonctionne plus. Avez-vous une idée de l'origine du problème et de la manière de le corriger ?

Voici le code :

lsCmd = "This.grMulti.Column" + ALLTRIM(STR(liCpt)) + ".Header1"
BINDEVENT(&lsCmd,[Click],this,[mTriColonne],1)

lsCmd = "This.grMulti.Column" + ALLTRIM(STR(liCpt)) + ".Text1"
IF this.pbMulti = .T.
BINDEVENT(&lsCmd,[Click],this,[mGrClic],1)
BINDEVENT(&lsCmd,[MouseDown],this,[mMultiSelection],1)
ELSE
IF this.pbDblClick = .T.
BINDEVENT(&lsCmd,[DblClick],this,[mGrDblClic],1)
ENDIF
IF this.pbClick = .T.
BINDEVENT(&lsCmd,[Click],this,[mGrClic],1)
ENDIF
ENDIF
BINDEVENT(&lsCmd,[RightClick],this,[mGrRightClic],1)
BINDEVENT(&lsCmd,[MouseMove],this,[mGrMouseMove],1)

lsCmd = "This.grMulti.Column" + ALLTRIM(STR(liCpt)) + ".Text1"
BINDEVENT(&lsCmd,[KeyPress],this,[mKeyPress],1)

Merci d'avance

Permalink : http://www.atoutfox.org/nntp.asp?ID=0000016515