Mega Code Archive

 

Categories / Delphi / System

 

How to differentiate between the two ENTER keys

Title: How to differentiate between the 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;