Форум: "Основная";
Текущий архив: 2004.03.05;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c