Какой код клавиши??

[RAVAL))]

Скажите код клавиш
WIN, CTRL, ALT

[Altera]

case c of
        27: s := 'Esc';
        112: s := 'F1';
        113: s := 'F2';
        114: s := 'F3';
        115: s := 'F4';
        116: s := 'F5';
        117: s := 'F6';
        118: s := 'F7';
        119: s := 'F8';
        120: s := 'F9';
        121: s := 'F10';
        122: s := 'F11';
        123: s := 'F12';
        44: s := 'Print Screen / SysRq';
        145: s := 'Scroll Lock';
        19: s := 'Pause / Breack';
        45: s := 'Insert';
        36: s := 'Home';
        33: s := 'Page Up';
        46: s := 'Delete';
        35: s := 'End';
        34: s := 'Page Down';
        37: s := 'Left';
        38: s := 'Up';
        39: s := 'Right';
        40: s := 'Down';
        163: s := 'Right Ctrl';
        93: s := 'HREN KNOPKA';
        92: s := 'Right Windows';
        165: s := 'Alt';
        32: s := 'Space';
        64: s := 'Left Alt';
        91: s := 'Left Windows';
        162: s := 'Left Ctrl';
        160: s := 'Left Shift';
        161: s := 'Right Shift';
        20: s := 'Caps Lock';
        9: s := 'Tab';
        192: s := ' ` / ~ / ё ';
        49: s := ' 1 / ! ';
        50: s := ' 2 / @ / " ';
        51: s := ' 3 / # / № ';
        52: s := ' 4 / $ / ; ';
        53: s := ' 5 / % ';
        54: s := ' 6 / ^ / : ';
        55: s := ' 7 / & / ? ';
        56: s := ' 8 / * ';
        57: s := ' 9 / ( ';
        48: s := ' 0 / ) ';
        189: s := ' - / _ ';
        187: s := ' = / + ';
        220: s := ' \ / | / / ';
        8: s := ' <== ';
        65: s := ' a / ф ';
        66: s := ' b / и ';
        67: s := ' c / с ';
        68: s := ' d / в ';
        69: s := ' e / у ';
        70: s := ' f / а ';
        71: s :=  'g / п ';
        72: s := ' h / р ';
        73: s := ' i /  ш ';
        74: s := ' j / о ';
        75: s := ' k / л ';
        76: s := ' l / д ';
        77: s := ' m / ь ';
        78: s := ' n / т ';
        79: s := ' o / щ ';
        80: s := ' p / з ';
        81: s := ' q / й ';
        82: s := ' r / к ';
        83: s := ' s / ы ';
        84: s := ' t / е ';
        85: s := ' u / г ';
        86: s := ' v / м ';
        87: s := ' w / ц ';
        88: s := ' x / ч ';
        89: s := ' y / н ';
        90: s := ' z / я ';
        219: s := ' { / [ / х ';
        221: s := ' } / ] / ъ ';
        186: s := ' ; / : / ж ';
        222: s := ' '''' / " / э ';
        188: s := ' < / , / б ';
        190: s := ' > / . / ю ';
        191: s := ' / / ? / . / , ';
        95: s := 'SLEEP BUTTON';
        144: s := 'Num Lock';
        111: s := '/';
        106: s := '*';
        109: s := '-';
        107: s := '+';
        13: s := 'Enter';
        97: s := '1';
        98: s := '2';
        99: s := '3';
        100: s := '4';
        101: s := '5';
        110: s := 'Num "."';
        12: s := 'Num "5"';
        102: s := '6';
        103: s := '7';
        104: s := '8';
        105: s := '9';
        96: s := 'Num "0"';
        1: s := 'Left Mouse BUTTON';
        2: s := 'Right Mouse BUTTON';
        4: s := 'Mouse Wheel';
        5: s := 'Mouse fifth button';
end;

[RAVAL))]

спасибо!!!
тему можно клоуз!

[RAVAL))]

а у меня чета не получается:
если нажата клавиша ctrl, то выдать сообщение

[RAVAL))]

Altera, а ты уверен что коды правильные я проверил, НЕ РАБОТАЮТ!!!

[Terran]

RAVAL)), посмотрите на всякий случай здесь: http://www.realcoding.net/article/view/1857

[Роман Радер]

по идее все правильно.
попробуйте еще использовать VK_...

[ViktorXP]

Сообщение от RAVAL))

а у меня чета не получается:
если нажата клавиша ctrl, то выдать сообщение

может не то событие выбрал? в OnKeyPress она не попадает. (посути и не надо она там)

[RAVAL))]

что не надо??

[Altera]

там 2 контрола, если ты не заметил: левый и правый.
Да, вот ещё что, если ты для формы делаешь, на onKeyDown, то ничего не получится, если у тебя на форме стоят другие компоненты, "поглощающие" фокус. Лучше создай action, и в горячие клавиши добавь ему то, что тебе надо.