Accueil > Manip’s > Delphi > Atelier Delphi pour les Nuls > Delphi Blue Baby Faq > Comment simuler la Touche TAB en appuyant sur ENTREE ?
Comment simuler la Touche TAB en appuyant sur ENTREE ?
mardi 22 avril 2008, par
TAB entraine la sortie d’un champ d’Edition , et déclenche l’évènement OnEXIT qui valide la saisie, il est parfois plus intuitif de confier cette mission à la touche ENTREE
Niveau Formulaire (Form)
Propriété
Keypreview | True |
Evènement OnKeyPress
if key = #13 then begin
key := #0 ;
PostMessage ( handle, WM_NEXTDLGCTL, 0, 0) ;
end ;
if key = #13 then begin | Si la Touche frappée est ENTREE |
key := #0 ; | J’annule le code de la touche et donc la frappe |
PostMessage ( handle, WM_NEXTDLGCTL, 0, 0) ; | Et je le remplace par un code machine simulant la Touche TAB |
Source : Delphi 3 Dick Lantim P 917