BlueGEEK Journal

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 bluegyn_spip

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