Горячие клавиши

[AlexGordon]

Как сделать горячие клавиши типа F1, F9... или цифры?
И как делать горячими сочитания клавишь?
Например мне надо создать обработку:

Код: Выделить всё

if VK_KEY = Ctrl+f9 then begin
...trololo...
end;

[Mr.Smart]

Используйте TActionList.

[AlexGordon]

Я думал об этом, но как там сделать вызов действия на клавишу?

[Mr.Smart]

Создаёте акшен и указываете шоткат.

Добавлено спустя 3 минуты 46 секунд:
Если нет возможности связать с TActionList, то можно в обработчике типа OnKeyDown выполнить следующие действия:

Код: Выделить всё

  if (ssCtrl in Shift) and (Key=VK_F1) then
   ShowMessage('Действие!');

[AlexGordon]

Он почему-то считает даже VK_RETURN ошибкой...

[Mr.Smart]

подключаем модуль LCLTypes

[AlexGordon]

подключаем модуль LCLTypes

Он такого не знает

[Odyssey]

LCLType

[AlexGordon]

О, спасибо!

[modestusmunh]

Можно поподробнее о горячих клавишах?
Нужно выполнить такие задания:

6. Двойной щелчок мыши или Alt-X или F10 закрывают форму (с запросом на разрешение).
7. Нажатие клавиш со стрелками сдвигает форму (в границах экрана)
8. Щелчок правой кнопки мыши сжимает форму на 5 пикселей со всех сторон. Щелчок правой кнопки мыши с нажатой клавишей Shift увеличивает форму на 5 пикселей во все стороны.

Что делаю для 6 задания:
*даблклик на событии OnKeyDown;
*в редакторе кода пишу:

Код: Выделить всё

procedure TForm1.FormKeyDown (Sender: TObject; var key:word; Shift:TShiftState);
begin
  if (key=ord('x')) and (ssAlt in Shift) then Close; {для того, чтобы спрашивало разрешение на закрытие необходимо создавать дочернюю форму? или есть вариант попроще?}
end;

Программа компилируется, запускается, но на Alt+X не реагирует. Что, собственно, не так?
PS С F10 разобрался.

[Mr.Smart]

Смотри компонент TActionList.

[modestusmunh]

Mr.Smart спасибо, разобрался.
Объясните как 7 выполнить? Я надеюсь, не тривиально менять нач. координаты? И как реализовать перемещение в границах экрана?