Information générale
Catégorie:
Codage, syntaxe et commandes
Thanks Vladimir and Mark for your assistance....
>Hi Farouk!
>
>Add the property lIgnoreEnter with .f. as default and lOldValue
>to your checkbox class:
>
>PROCEDURE GotFocus
> this.lOldValue=this.Value
>ENDPROC
>PROCEDURE Init
>if not empty(this.ControlSource)
> this.lOldValue=eval(this.ControlSource)
>else
> this.lOldValue = this.Value
>endif
>ENDPROC
>PROCEDURE Click
>LOCAL lnKeycode
>lnKeycode=lastkey()
>do case
> CASE lnKeyCode=13
> nodefault
> if this.lIgnoreEnter
> this.Value=this.lOldValue
> else
> =dodefault()
> endif
> otherwise
> =dodefault()
>endcase
>this.lOldValue=this.Value
>ENDPROC
>
>HTH
>
>>Does anyone knows how to prevent checkboxes from being checked when
>RETURN
>>key is press? If possible , checking can only be done on mouse click or
>>spacebar... Thanks.
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement