Включить HotKeyManager

[Михаил Юрьевич]

На форме 2 HotKeyManager ,в одном при нажатии на горячую клавишу выполняю код и отключаю эту клавишу что бы повторно не нажали. Отключаю так : HotKeyManager1.free;
Подскажите как програмно ее включить?

[Ntlegend]

а что такое HotKeyManager?? никогда не слышал.. горячие клавиши делаю так:

  private
    procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
***

var   hk1: integer;
****
//создаём горячую клавишу
procedure TForm1.Button1Click(Sender: TObject);
begin
hk1:=GlobalAddAtom('Hotkey1');
// - Hotkey1 уникальноен имя горяцей клавиши
RegisterHotKey(Handle, hk1, MOD_CONTROL, 107);
//MOD_CONTROL - клавиша модулятор
//107 - код виртуальной клавиши
end;

//обрабатываем сообщение
procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
if Msg.HotKey=hk1 then 
 делаем что нада;
end;

//удаляем горячую клавишу
procedure TForm1.Button2Click(Sender: TObject);
begin
UnregisterHotKey(Handle, hk1);
end;

[Kotofff]

Сообщение от Михаил Юрьевич

На форме 2 HotKeyManager ,в одном при нажатии на горячую клавишу выполняю код и отключаю эту клавишу что бы повторно не нажали. Отключаю так : HotKeyManager1.free;
Подскажите как програмно ее включить?

Совсем недавно я помучившись в этом же направлении вообще отказался от HotKeyManager`а. Можно конечно программно попробовать его создавать сначала чтобы потом программно "убирать" (HotKeyManager1.free), но это еще не факт, что все будет гладко. Выход нашел в использовании ActionList из закладки Standart, но, предложенное Ntlegend во втором посте ручное создание/удаление тоже один из вариантов.
Вот небольшой пример на скорую руку с ActionList

[Михаил Юрьевич]

Спасибо большое Kotofff,буду разбираться
А в пользу чего отказался от HotKeyManager`а?

[Kotofff]

В зависимости от задачи ...
Но в основном ActionList теперь для таких нужд ...
Пишу в основном с помощью DevExpress - там реализация горячих клавиш просто классная и без посторонней помощи, но это совсем другая история не для этой темы ...