Hot Key в ToolBar

[Impuls1989]

Доброго времени суток уважаемые эксперты. Возник один вопрос. На форме имеется компонент ToolBar. Для каждой кнопки необходимо назначить горячую клавишу. Как данное действо можно реализовать?

[spamer]

Если правильно понял, то так:

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
Caption := '111';
end;

procedure TForm1.ToolButton2Click(Sender: TObject);
begin
Caption := '222';
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case key of
    49 : ToolButton1.Click;   //Клавиша - Цифра 1
    50 : ToolButton2.Click;   //Клавиша - Цифра 2
    //И т.д.
    end;
end;

[Impuls1989]

Не совсем так! Такое сработает если фокус ввода стоит на форма.
А я бы хотел чтобы, например, по нажатию Ctrl+F1 нажималась кнопка 1, Ctrl+F2 нажималась кнопка 2 и т.д. и все это не зависило от того где расположен фокус.
Такая вещь реализована в MainMenu - каждому пункту можно назначить определенную комбинацию клавиш.

[spamer]

Тогда наверно вот так:

  private
    { Private declarations }
  procedure wmhotkey(var msg : TWMHotKey); message WM_HOTKEY;

//.........................

procedure TForm1.wmhotkey(var msg: TWMHotKey);
begin
  case msg.HotKey of
    0 : ToolButton1.Click;
    1 : ToolButton2.Click;
  end;
end;



procedure TForm1.FormCreate(Sender: TObject);
begin
  RegisterHotKey(handle,  0, MOD_CONTROL, VK_F1);
  RegisterHotKey(handle,  1, MOD_CONTROL, VK_F2);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  UnregisterHotKey(handle, 0);
  UnregisterHotKey(handle, 1);

end;

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
Caption := '1';
end;

procedure TForm1.ToolButton2Click(Sender: TObject);
begin
Caption := '2';
end;

з.ы. но мене кажется для вашего случая еще можно использовать хуки.

[RIO]

Мне кажется лучше всего будет сделать так : добавить на форму ActionList, в нем создать "Екшены" и на каждый присвоить нужную горячею клавишу, после чего на каждый прописать нужно событие Execute и каждую кнопочку с тулбара подключить к нужному "Екшену"

[Impuls1989]

Работает просто идеально. А можно ли как-нибудь органиовать привязку к любым клавишам. Тоесть у нас есть, допустим ComboBox а в нем доступные комбинации. При выборе нужной комбинации она регистрируется для данной кнопки.
Объясню зачем мне это надо. Хочу создать компонент, наследник ToolBar, с возможностью для каждой кнопки назначить горячую клавиши. Или может есть другой путь реализовать подобное?

[Impuls1989]

Сообщение от RIO

Мне кажется лучше всего будет сделать так : добавить на форму ActionList, в нем создать "Екшены" и на каждый присвоить нужную горячею клавишу, после чего на каждый прописать нужно событие Execute и каждую кнопочку с тулбара подключить к нужному "Екшену"

А так просто идеально!!!! И ничего прописывать не надо. И компонент новый не нужно создавать. Спасибо огромное всем.

[RIO]

Не за что