Įveskite klavišą Enter, kaip „Tab“, esantį „Delphi“ programose

Mes žinome, kad paprastai paspaudus klavišą Tab, įvesties fokusavimas pereina į kitą valdymą, o „Shift-Tab“ - į ankstesnį formos skirtukų eilės tvarka. Kai dirbate su „Windows“ programos, kai kurie vartotojai intuityviai tikisi, kad klavišas „Enter“ veiks kaip klavišas „Tab“.

Žemiau pateikti pavyzdžiai yra rašomi darant prielaidą, kad formoje nėra numatytojo mygtuko. Kai jūsų formoje yra mygtukas, kurio Numatytoji nuosavybė nustatyta kaip Tiesa, paspauskite „Enter“ runtime vykdo bet kurį kodą, esantį mygtuko „OnClick“ įvykių apdorojimo priemonėje.

~~~~~~~~~~~~~~~~~~~~~~~~~
procedūra TForm1.Edit1KeyPress (Siuntėjas: TObject; var raktas: Char);
prasideda
Jei raktas = # 13, tada pradėkite
Jei „HiWord“ („GetKeyState“ (VK_SHIFT)) <> 0, tada
„SelectNext“ (siuntėjas kaip „TWinControl“, „False“, „True“)
Kitas
SelectNext (Siuntėjas kaip „TWinControl“, „True“, „True“);
Raktas: = # 0
galas;
galas;
~~~~~~~~~~~~~~~~~~~~~~~~~

~~~~~~~~~~~~~~~~~~~~~~~~~
procedūra TForm1.DBGrid1KeyPress (Siuntėjas: TObject; var raktas: Char);