1 Topic by pha1984 (edited by pha1984 2015-05-25 06:23:57)

  • Registered: 2015-04-04
  • Posts: 262

Topic: Key codes - коды клавиш клавиатуры

Constant    Value    Description
vbKeyLButton    1    Left mouse button
vbKeyRButton    2    Right mouse button
vbKeyCancel    3    CANCEL key
vbKeyMButton    4    Middle mouse button
vbKeyBack    8    BACKSPACE key
vbKeyTab    9    TAB key
vbKeyClear    12    CLEAR key
vbKeyReturn    13    ENTER key
vbKeyShift    16    SHIFT key
vbKeyControl    17    CTRL key
vbKeyMenu    18    MENU key
vbKeyPause    19    PAUSE key
vbKeyCapital    20    CAPS LOCK key
vbKeyEscape    27    ESC key
vbKeySpace    32    SPACEBAR key
vbKeyPageUp    33    PAGE UP key
vbKeyPageDown    34    PAGE DOWN key
vbKeyEnd    35    END key
vbKeyHome    36    HOME key
vbKeyLeft    37    LEFT ARROW key
vbKeyUp            38    UP ARROW key
vbKeyRight    39    RIGHT ARROW key
vbKeyDown    40    DOWN ARROW key
vbKeySelect    41    SELECT key
vbKeyPrint    42    PRINT SCREEN key
vbKeyExecute    43    EXECUTE key
vbKeySnapshot    44    SNAPSHOT key
vbKeyInsert    45    INS key
vbKeyDelete    46    DEL key
vbKeyHelp    47    HELP key
vbKeyNumlock    144    NUM LOCK key

KeyA Through KeyZ Are the Same as Their ASCII Equivalents: 'A' Through 'Z'
Constant        Value        Description
vbKeyA                     65                A key
vbKeyB                     66                B key
vbKeyC                     67                C key
vbKeyD                     68                D key
vbKeyE                     69                E key
vbKeyF                     70                F key
vbKeyG                     71                G key
vbKeyH                     72                H key
vbKeyI                     73                I key
vbKeyJ                     74                J key
vbKeyK                     75                K key
vbKeyL                 76                L key
vbKeyM                     77                M key
vbKeyN                     78                N key
vbKeyO                     79                O key
vbKeyP                     80                P key
vbKeyQ                     81                Q key
vbKeyR                     82                R key
vbKeyS                     83                S key
vbKeyT                     84                T key
vbKeyU                     85                U key
vbKeyV                     86                V key
vbKeyW                     87                W key
vbKeyX                     88                X key
vbKeyY                     89                Y key
vbKeyZ                     90                Z key

Key0 Through Key9 Are the Same as Their ASCII Equivalents: '0' Through '9
Constant        Value        Description
vbKey0                     48                0 key
vbKey1                     49                1 key
vbKey2                     50                2 key
vbKey3                     51                3 key
vbKey4                     52                4 key
vbKey5                     53                5 key
vbKey6                     54                6 key
vbKey7                     55                7 key
vbKey8                     56                8 key
vbKey9                     57                9 key

Keys on the Numeric Keypad
Constant        Value        Description
vbKeyNumpad0        96                0 key
vbKeyNumpad1        97                1 key
vbKeyNumpad2        98                2 key
vbKeyNumpad3        99                3 key
vbKeyNumpad4        100                4 key
vbKeyNumpad5        101                5 key
vbKeyNumpad6        102                6 key
vbKeyNumpad7        103                7 key
vbKeyNumpad8        104                8 key
vbKeyNumpad9        105                9 key
vbKeyMultiply        106                MULTIPLICATION SIGN (*) key
vbKeyAdd            107                PLUS SIGN (+) key
vbKeySeparator        108                ENTER (keypad) key
vbKeySubtract        109                MINUS SIGN (-) key
vbKeyDecimal        110                DECIMAL POINT(.) key
vbKeyDivide            111                DIVISION SIGN (/) key

Function Keys
Constant          Value    Description
vbKeyF1                     112    F1 key
vbKeyF2                     113    F2 key
vbKeyF3                 114    F3 key
vbKeyF4                     115    F4 key
vbKeyF5                     116    F5 key
vbKeyF6                     117    F6 key
vbKeyF7                     118    F7 key
vbKeyF8                     119    F8 key
vbKeyF9                     120    F9 key
vbKeyF10             121    F10 key
vbKeyF11             122    F11 key
vbKeyF12             123    F12 key
vbKeyF13             124    F13 key
vbKeyF14             125    F14 key
vbKeyF15             126    F15 key
vbKeyF16             127    F16 key

  • Registered: 2015-05-23
  • Posts: 13

Re: Key codes - коды клавиш клавиатуры

Thanks

cwghost's Website

  • jrga
  • Member
  • Offline
  • From: Brasil
  • Registered: 2015-10-26
  • Posts: 127

Re: Key codes - коды клавиш клавиатуры

Hello everybody! I've already used several examples of (Ctrl and/or Shift) + key, posted on the forum, but I didn't find Ctrl plus '+' and Ctrl plus '-'. I tried using the codes above, but without success. If anyone can help, I appreciate it.

Roberto Alencar
  • From: Рідна МАТИ, UKRAINE
  • Registered: 2018-06-02
  • Posts: 894

Re: Key codes - коды клавиш клавиатуры

Hi Roberto


procedure Form1_OnKeyDown (Sender: TObject; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
  if (Ctrl) and (key=107) then showmessage('You press "+"');   // PLUS on NumPad
  if (Ctrl) and (key=109) then showmessage('You press "-"');   // MINUS on NumPad
end;

5 Reply by jrga (edited by jrga 2024-01-04 15:58:39)

  • jrga
  • Member
  • Offline
  • From: Brasil
  • Registered: 2015-10-26
  • Posts: 127

Re: Key codes - коды клавиш клавиатуры

sparrow wrote:

Hi Roberto


procedure Form1_OnKeyDown (Sender: TObject; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
  if (Ctrl) and (key=107) then showmessage('You press "+"');   // PLUS on NumPad
  if (Ctrl) and (key=109) then showmessage('You press "-"');   // MINUS on NumPad
end;

Hello Sparrow! Happy 2024! Unfortunately it didn't work! My notebook has a keyboard with a specific layout for the Portuguese language (Brazil) and the '+' symbol is on the same key, above the '=' symbol. Maybe that's why your suggestion didn't work...Thanks anyway! I'll try to capture the decimal code of the key via MVD and, if it's right, I'll post the result here.

PS. Now it worked! Thank you again.:

procedure Form1_OnKeyDown (Sender: string; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
     if ((Ctrl) and (key=107)) or ((Ctrl) and (key=187)) then
          showmessage('You press "+"');
     if ((Ctrl) and (key=109)) or ((Ctrl) and (key=189)) then
          showmessage('You press "-"');  
end;

Roberto Alencar