Помощь - Поиск - Пользователи - Календарь
Полная версия: Ascii коды клавиатуры
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Lidroot
Подскажите какие коды у клавиш PageUp и PageDown. Может кто нибудь выложит полную таблицу?
volvo
А может быть, кто-нибудь уже начнет, наконец, пользоваться поиском?
движение по стрелкам

(внимательно читать ВСЮ тему!)
Lidroot
Спасибо volvo! я пытался искать но ничего не нашел! Эта тема 2004 года smile.gif
APAL
Этот код написан лет 5-8 назад.... и до сих пор работает (хотя можно и оптимизировать немного).
Надеюсь теперь не будет вопросов про коды клавиш.

Uses Crt;
Var Ch : Char;
Begin
  ClrScr;
  Ch:=#0;
  Repeat
    While KeyPressed do
    Begin
      Ch:=ReadKey;
      GoToXY(15,1); Write('   ');
      If Ch=#0 then
      Begin
        Ch:=ReadKey;
        GoToXY(15,1); Write('#0');
      End;
      GoToXY(1,1);  Write(Ch,'  ');
      GoToXY(10,1); Write(Ord(Ch),'  ');
    End;
  Until Ch=#27; {выход по нажатию ESC}
End.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.