Создание ярлыка приложения Delphi без соответствующего пункта меню

Question

Я хочу, чтобы комбинация клавиш (например, Ctrl + Alt + D) в моем приложении вызывала функцию, но я не хочу, чтобы ярлык отображался в любом меню , Возможно ли иметь ярлык в вашем приложении, который в противном случае невидим?

Answer 1

вы можете использовать OnShortCut событие TApplicationEvents компонента этой задачи

проверки этот код

procedure TForm1.ApplicationEvents1ShortCut(var Msg: TWMKey; 
    var Handled: Boolean); 
begin 
    if (Msg.CharCode = Ord('D')) and (HiWord(Msg.KeyData) and KF_ALTDOWN <> 0) and (GetKeyState(VK_CONTROL) < 0) then 
    begin 
    ShowMessage('Ctrl+Alt+D Pressed') ; 
    Handled := true; 
    end; 
end; 

Answer 2

Да, это возможно. Вы должны добавить объект класса TAction в свою форму. Вы можете указать комбинацию клавиш для Taction, а затем поместить код в событие OnExecute из TAction.

Обратите внимание, что вы не можете добавить Taction непосредственно в свою форму, вы должны поместить TactionList в свою форму, а затем вы можете добавить Taction в свой TActionList.