Как работать с HotKeyManager

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

Подскажите где можно прочитать по компоненту HotKeyManager.
Ни как не могу разобраться как устанавливать горячие клавиши

[Kotofff]

У меня в "комплекте" есть демки - там много чего почерпнуть можно.
ИМХО, если глобальные горячие клавиши не нужны , то можно просто ActionList.

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

Вот здесь из демки взял код и немного упростил,но он что то не работает
Нормально компилируется,но при проверки индекса с переменной при условии всегда форма становится зеленой,переменной не чего не присваевается

TForm1 = class(TForm)
    HotKey1: THotKey;
    Button1: TButton;
    HotKeyManager1: THotKeyManager;
    procedure Button1Click(Sender: TObject);
    procedure HotKeyManager1HotKeyPressed(HotKey: Cardinal; Index: Word);
    procedure FormCreate(Sender: TObject);
  private
  hotkey:word;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
 hotkey:=hotkeymanager1.ChangeHotKey(HotKey, HotKey1.HotKey);
end;

procedure TForm1.HotKeyManager1HotKeyPressed(HotKey: Cardinal;
  Index: Word);
begin
 SetForegroundWindow(Application.Handle);
 if index=hotkey then
 form1.Color:=clred
 else   form1.Color:=clgreen;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
hotkey:=hotkeymanager1.AddHotKey(hotkey1.HotKey);
end;

end.

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

Все спасибо,разобрался