Реакция на клавишу

← →
Скарамуш © (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;

О, блин, ОГРОМНОЕ СПАСИБО, это я уже, что-то, видимо к концу недели заработался на фиг, так лохануться... Спасибо!

Реакция на клавишу Найти похожие ветки