Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Ascii коды клавиатуры

Автор: Lidroot 15.04.2006 15:54

Подскажите какие коды у клавиш PageUp и PageDown. Может кто нибудь выложит полную таблицу?

Автор: volvo 15.04.2006 15:59

А может быть, кто-нибудь уже начнет, наконец, пользоваться поиском?
http://forum.pascal.net.ru/index.php?showtopic=2568

(внимательно читать ВСЮ тему!)

Автор: Lidroot 15.04.2006 16:12

Спасибо volvo! я пытался искать но ничего не нашел! Эта тема 2004 года smile.gif

Автор: APAL 16.04.2006 17:03

Этот код написан лет 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.