Нормальная ловушка для клавиш..., ...в том числе и системных! :) Опции

[Dim]

Лююди, человеки, подскажите плиз ламеру:

Событием TForm.FormKeyDown(трям-пам-пам...) я получаю Key:Word... далее я его могу преобразовать chr()'ом или FloatToStr()'ом... в первом случае получается белеберда для системных клавиш(шифт, котрл итд), во втором я получаю вроде нормальный byte код клавиши... но мне нужно получить еще и буквенное обозначение. Тоесть, нажал 'Ctrl' --> получил что-то типа 'Key_Ctrl' или 'ssCtrl', 'Enter' --> 'Key_Enter', 'Z' --> 'Key_Z' итд..Я пытался сам разобраться и понял, что для этого нужно использовать юнит Qt! Но как это сделать??? Или может есть какой другой способ получить одновременно и буквенное и символьное обозначение клавиш, нажатых на клавиатуре?

Для чего это нужно: в программе юзер должен иметь возможность забиндить любую клавишу для определенного действия! Для этого он нажимает кнопку на форме, появляется stayontop окошко, которое реагирует на нажатие кнопок клавиатуры. Когда пользователь нажал кнопку - ее код пишеться в реестр, а символьное обозначение (например LeftCtrl) выводится на форме в label... Вот

Огромное спасибо!

[hiv]

Если ему нужны соответствие кодов кнопкам, то пусть полезет в папку Delphi\Source\Rtl. Там есть исходник windows.pas и в нем все константы виртуальных кнопок определены:

Код

........
 { Virtual Keys, Standard Set }
 {$EXTERNALSYM VK_LBUTTON}
 VK_LBUTTON = 1;
 {$EXTERNALSYM VK_RBUTTON}
 VK_RBUTTON = 2;
 {$EXTERNALSYM VK_CANCEL}
 VK_CANCEL = 3;
 {$EXTERNALSYM VK_MBUTTON}
 VK_MBUTTON = 4;  { NOT contiguous with L & RBUTTON }
 {$EXTERNALSYM VK_BACK}
 VK_BACK = 8;
 {$EXTERNALSYM VK_TAB}
 VK_TAB = 9;
 {$EXTERNALSYM VK_CLEAR}
 VK_CLEAR = 12;
 {$EXTERNALSYM VK_RETURN}
 VK_RETURN = 13;
 {$EXTERNALSYM VK_SHIFT}
 VK_SHIFT = $10;
 {$EXTERNALSYM VK_CONTROL}
 VK_CONTROL = 17;
 {$EXTERNALSYM VK_MENU}
 VK_MENU = 18;
 {$EXTERNALSYM VK_PAUSE}
 VK_PAUSE = 19;
.........

Хау. Я все сказал...

[Malice]

Хау. Я все сказал...

Ма-ла-дец! :D а где соответствия кодов названиям ?

так надо:

case key of
vk_tab: s:='TAB';
112..123: s:='F'+floattostr(key-111);
.......
else s:=floattostr(key);

[Dim]

так надо:

case key of
vk_tab: s:='TAB';
112..123: s:='F'+floattostr(key-111);
.......
else s:=floattostr(key);

Отэта я лоханулся! Можно было и без фора обойтись! :molitva: