Скачать: CL | DM;

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

← →
Скарамуш ©   (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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c