~~~~~~~~~~~~~~~~~~~~~~~~~
interface
...
private
procedure WMKeyDown(var Message: TWMKeyDown) ; message CM_DIALOGKEY;
implementation
...
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;
~~~~~~~~~~~~~~~~~~~~~~~~~
Delphi tips navigator:
» How to load HTML directly to a WebBrowser
« How to place a progress bar inside a standard dialog box
