| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Реакция на клавишу
Скарамуш © (2007-07-27 22:03:00)Вот такое дело: Нужно, чтобы при нажатии на клавишу на клавиатуре происходило некое действие, с 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 не прописал, а может и ошибаюсь...
Не поможете?
Скарамуш (2007-07-28 11:39:00) [1]О, блин, ОГРОМНОЕ СПАСИБО, это я уже, что-то, видимо к концу недели заработался на фиг, так лохануться... Спасибо!
Kostafey (2007-07-28 00:36:00) [2]> If Ord('G') Then Application.Terminate
А если
If Key=Ord('G') then Application.Terminate;
| |
