Free pascal vk_left vk_right...

[FED]

Помогите пожалуйста! Как обработать нажатия клавиш vk_left, vk_right и других подобных кнопок. Собственно узнать код клавиши.

[Лекс Айрин]

значения кодов есть в файле LCLType.pp все остальное, в принципе, там же.

[FED]

Лекс Айрин
Можно привести кусок кода, который покажет при нажатии клавиши её код.
Спасибо!

[Лекс Айрин]

посмотри тему viewtopic.php?f=5&t=5279

[FED]

посмотри тему viewtopic.php?f=5&t=5279

Посмотрел, речь о событии конкретного компонента. Я имел ввиду несколько другое, а именно: минимальная программа на Free Pascal для вывода кода нажатой клавиши, что-то вроде:

Код: Выделить всё

program keycode;
uses Crt;
var
c:char;
begin
while c<>#27 do
begin
c:=readkey;
Writeln('Нажата клавиша ',c,' её код - ',Ord(c));
end;
end.

Всё хорошо, только когда нажимаю стрелки (vk_left,vk_right....) - пишет: K - 75, M - 77, хотя ожидал коды 37, 39.
Аналогично тому, если в англ. раскладе нажать Shift+K(M).
Так ведь не должно быть!?

Добавлено спустя 38 минут 45 секунд:
Наткнулся на тему http://tpdn.ru/faq/23/3925/, сдаётся мне это из той же серии.