Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.05;
Скачать: CL | DM;

Вниз

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

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


 
Гарри Поттер ©   (2004-02-24 22:12) [3]

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



Страницы: 1 вся ветка

Текущий архив: 2004.03.05;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.021 c
3-12268
Lapor
2004-02-06 19:03
2004.03.05
CREATE INDEX


4-12584
LOX
2003-12-30 13:51
2004.03.05
Сохранить текст из ListBox на чужой форме


3-12267
Виталя
2004-02-09 09:43
2004.03.05
Как програмно получить список ролей, данного пользователя ?


14-12511
Кен
2004-01-26 03:01
2004.03.05
Кто нибудь из россиян покупал что нибудь на eBay ? Поделитесь опы


9-12222
NailMan
2003-08-15 17:19
2004.03.05
Консоль в игре и множество настраиваемых параметров