Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Доброго времени суток, уважаемые эксперты!
Вопрос возможно глупый, но всё же...
У любой клавиши есть код (_chr(13)_), а какие коды на "стрелки" на клавиатуре?
Премного благодарен...

Вопрос задал: padonak (статус: Посетитель) Вопрос отправлен: 1 февраля 2010, 01:23 Состояние вопроса: открыт, ответов: 2.

Ответ #1. Отвечает эксперт: Егор

Здравствуйте, padonak!
Уж такие-то вещи можно и самому узнать легко. На форму кидаем компонент TLabel. Затем выделяем форму, заходим в её свойства и на вкладке Events прописываем обработчик FormKeyDown:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Label1.Caption:=Label1.Caption +chr(13)+ 'code=' + IntToStr(Key);
end;

Ответ отправил: Егор (статус: 10-ый класс) Время отправки: 1 февраля 2010, 06:02 Оценка за ответ: 4

Ответ #2. Отвечает эксперт: Паровоз

Здравствуйте, padonak!

Посмотрите здесь:
http://borlpasc.narod.ru/docym/Faronov/gl13/gl13_1.html
http://delphiworld.narod.ru/base/virtual_keys_codes.html

Ответ отправил: Паровоз (статус: 10-ый класс) Время отправки: 1 февраля 2010, 12:29 Оценка за ответ: 5

Мини-форум вопроса

Егор (статус: 10-ый класс), 1 февраля 2010, 18:40 [#1]: а почему 4? Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его. — Donald E. Knuth.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.