Key = VK_1 //ошибка

← →
Гарри Поттер © (2004-02-24 21:54) [0]

Это:
procedure TfrmMain.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_1 then // какойто код end; end;

выдает ошибку: Undeclared identifier: "VK_1".
Почему? Как обработать нажатие цифровых кнопок на клаве?

← →
Gero © (2004-02-24 21:59) [1]

Константы VK_1 нет.
Код символа возвращает Ord.
т.е. Ord("1")

← →
Гарри Поттер © (2004-02-24 22:09) [2]

procedure TfrmMain.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin

Case Key of
31 : begin // код
32 : begin // код

Выдает на "32" [Error] Main.pas: Duplicate case label

Ничего непонимаю...

Извиняюсь.. Сам затупил..
А рядом никого неоказалось что бы носом ткнуть.. :-)

Key = VK_1 //ошибка Найти похожие ветки