Комбинации клавиш

[Harry]

Столкнулся с необходимостью прописать для некоторых действий в программе клавиатурные комбинации. Что-то не выходит. В факах - тоже не нашел. Я попытался написать так:

procedure TfmPrihod.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (Key=ord('U')) and (ssCtrl in Shift) then fmFind.Visible:=True;
end;

Т.е. по сочетанию CTRL+U должно появляться другое окно. Но этот код не работает. Подскажите, пожалуйста, как правильно написать.

[Var-Alex]

Создай Action и назначь ему HotKey. А если тебе надо что-бы твои гор клавиши работали дакже когда твоя программа не активна, то рой RegisterHotkey и иже с ними. В дельфовом хельпе есть.

[DimOC]

Просто у формы в OnKeyDown которой ты пишешь свой код с проверкой нажатия поставь свойство KeyPreview в True.
(форма будет первой перехватывать все нажатия клавиш)

Либо... есть еще один способ... когда я был неопытным и глупым, я создавал невидимый пункт в MainMenu и назначал ему ShortCut, а в процедуре выбора этого пункта уже писал что нужно делать.

Так что... сделать можно многое и через разные места.

[Harry]

Класс, все работает    А про второй способ - насчет MainMenu - я знал, но увы... на этой форме меню быть не должно  

[Var-Alex]

Что рабоатет? Про Action? Так ты ещё знай, что на один ХотКей может быть повешено несколько Action-ов, только так, что-бы они небыли активны в одно время. Свойство Enabled выставлять хорошо в событии Taction.OnUpdate...  

[Harry]

Action не пробовал еще, просто как советовал DimOK, поставил OnKeyDown в True и этого хватило. Но для собственного развития попробуи и другие методы