Форум: "Начинающим";
Текущий архив: 2007.08.19;
Скачать: [xml.tar.bz2];
Вниз
Реакция на клавишу Найти похожие ветки
← →
Скарамуш © (2007-07-27 22:03) [0]Вот такое дело: Нужно, чтобы при нажатии на клавишу на клавиатуре происходило некое действие, с VK всё ок, а вот с ord ничего не получается...
Например:procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If Key=VK_MENU then Application.Terminate;
end;
Работает отлично, а вот тоже, но сIf Ord("G") Then Application.Terminate
выдаёт ошибку, по help`у вроде всё так. Чую, что что-то в uses не прописал, а может и ошибаюсь...
Не поможете?
← →
Kostafey © (2007-07-28 00:36) [1]> If Ord("G") Then Application.Terminate
А если
If Key=Ord("G") then Application.Terminate;
← →
Скарамуш © (2007-07-28 11:39) [2]О, блин, ОГРОМНОЕ СПАСИБО, это я уже, что-то, видимо к концу недели заработался на фиг, так лохануться... Спасибо!
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.08.19;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.044 c
