ord('.')

[VirtUX]

Уважаемые форумчане. Отпишитесь, пожалуйста, у кого какой код выдает "точка".
У меня 46, а это VK_DELETE. В багтрекер уже отписал.
P.S. Укажите ОС и локаль. Пжлст.

[Vadim]

У меня тоже 46. Судя по списку символов, этот номер как раз и есть точка.
Винда ХР.

Добавлено спустя 2 минуты 54 секунды:
В дельфях VK_DELETE тоже имеет номер 46.

[VirtUX]

Афигеть. И как быть? Как узнать, что нажата точка, а не Del?
P.S. У меня openSuSE 11.3

[m_guest]

Не знаю, будет ли работать в Linux, но в Windows можно так, наверное...

У формы делаем:

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

KeyPreview:=True;


И обрабатываем у ней OnKeyPress:

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

procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);
begin
  if Key='.' then
    ShowMessage('Точка');
end;   


Все работает (Win7 RU)

P.S. Пардон, вы с чистым FPC работаете? Тогда мой пример не пойдет..

[Vadim]

VirtUX
Дело в том, что если нажать кнопку DEL на цифровой клавиатуре, у неё тоже будет номер 46, т.к. её вторая ипостась - точка.
У DELETE, которая между клавиатурами, номер 83 или буква S...

[VirtUX]

Еще одна просьба. У кого какой код в OnUTF8KeyPress и в OnKeyPress на нажатие Delete?
У меня 127.

Добавлено спустя 1 минуту 25 секунд:

Дело в том, что если нажать кнопку DEL на цифровой клавиатуре, у неё тоже будет номер 46, т.к. её вторая ипостась - точка.

У меня ноут. И только один Del = 127.

[Vadim]

У меня ноут. И только один Del = 127.

Дома проверю, т.к. сейчас ноута под рукой нет.
А так, то цифровая клава выдаёт 46, а междуклавная DELETE вообще не реагирует на OnKeyPress.

[.wOvAN]

А шорткат не пробовали использовать в акшонах например?

[svk12]

Афигеть. И как быть? Как узнать, что нажата точка, а не Del?
P.S. У меня openSuSE 11.3

Если включён Num Lock, нажатие Del на цифровой клаве можно уловить в обработчике onKeyPress, Key='.'.
Если же Num Lock выключен, то в обработчике onKeyDown, Key=VK_Delete.
Клава при этом генерирует разные сканкоды.

[VirtUX]

В общем решил делать так:
К бинарнику будет прилагаться conf-файл с перечисленными кодами Delete, для конкретной машины. И в обработчике нажатия уже проверка на принадлежность к массиву указанных кодов.
Никогда не думал, что существует такая ситуация с Del...

[Vadim]

У меня ноут. И только один Del = 127.

Вам пора менять клавиатуру. Проверил дома на ноуте - никаких отличий от большого компа (а было бы странно, если бы отличия были ). Клавиша DELETE выдаёт, как и ожидалось, номер 83.

[qivi]

Коды клавиш
http://hotwebpro.narod.ru/info/programm ... a/kod.html

Точка 109 код. Точка на клавише с ">" 190.

П.С.: Сам не пробовал

[VirtUX]

Вам пора менять клавиатуру.

Клава новая. Уже третья на моем ноуте. Посоветовался с другом - оказалось, что коды, часто, не стандартизированы и зависят от препочтений самих пороизводителей оборудки. Т.ч. гарантированными могут быть только коды латинских символов, пробел, цифры и (не все) F-клавиши.

[SAK]

Специальные клавиши дают двойные коды: сначала приходит символ #0, а за ним код клавиши (не символ!). Поэтому обработка должна быть соответствующей:

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

uses crt;
var c: char;
begin
   repeat
      c:=readkey;
      case c of
        #27: exit;   // ESC - выход
        #0: writeln('0 ', ord(readkey)); // читаем код клавиши из буфера
       else writeln(c)
      end
   until false
end.


[Vadim]

Специальные клавиши дают двойные коды: сначала приходит символ #0, а за ним код клавиши (не символ!)

Это все знают. Проблема в том, что у человека клавиша DELETE выдаёт 127, а такого ни в первом, ни во втором байте быть не может.