Title: Convert ENTER to TAB
Question: How can I use the ENTER key to move from
one focusable control to another?
Answer:
In heads-down data entry the TAB key is a tripwire. Data entry personnel need a quick way to enter numbers and text without moving to the TAB key to move from one control to another.
There are many solutions to this problem but the fasted [and slickest] way is to grab the keystroke before the form sees it:
In the form's PRIVATE section enter:
Procedure CMDialogKey(Var Msg:TWMKey); message CM_DIALOGKEY;
In the form's IMPLEMENTATION section enter:
Procedure TForm1.CMDialogKey(Var Msg: TWMKey);
Begin
If NOT (ActiveControl Is TButton) Then
If Msg.Charcode = 13 Then
Msg.Charcode := 9;
inherited;
End;
Trapping for TButton (you can use other substitutions, as well) lets the button's ONCLICK event trigger when the user hits ENTER on a button.
You do NOT have to activate the Form's KEYPREVIEW property, thereby speeding up the processing power of your application.