Mega Code Archive

 
Categories / Delphi / System
 

Differentiate between the two ENTER keys

Title: differentiate between the two ENTER keys? { An application may find it useful to differentiate between the user pressing the ENTER key on the standard keyboard and the ENTER key on the numeric keypad. Either action creates a WM_KEYDOWN message and a WM_KEYUP message with wParam set to the virtual key code VK_RETURN. When the application passes these messages to TranslateMessage, the application receives a WM_CHAR message with wParam set to the corresponding ASCII code 13. To differentiate between the two ENTER keys, test bit 24 of lParam sent with the three messages listed above. Bit 24 is set to 1 if the key is an extended key; otherwise, bit 24 is set to 0 (zero). Because the keys in the numeric keypad (along with the function keys) are extended keys, pressing ENTER on the numeric keypad results in bit 24 of lParam being set, while pressing the ENTER key on the standard keyboard results in bit 24 clear. } { The following code sample demonstrates differentiating between these two ENTER keys: } procedure TForm1.WMKeyDown(var Message: TWMKeyDown); begin inherited; case Message.CharCode of VK_RETURN: // ENTER pressed if (Message.KeyData and $1000000 0) then // Test bit 24 of lParam ShowMessage('ENTER on numeric keypad') else ShowMessage('ENTER on Standard keyboard'); end; end;