Зоны действий горячих клавишь

[Altera]

Привет всем! У меня такая проблема. Короче в одном окне есть tActionMenager с целой кучей экшенов. У многих экшенов установлены горячие клавиши, на типа Ctrl+C, Alt+F и т.д. Проблема в том, что в другом окне есть Поле ввода. И вот если там нажать Ctrl+C, то выделенный текст не только не копируется, но и срабатывает событие onExecate у действия в другом окне. Как мне сделать так, что бы горячие клавиши работали бы только в пределах заданого окна?

[Daramant]

У ActionManager'a есть свойство State, т.е. можно приостанавливать его работу.
Можно сделать так:
Когда фокус переходит к другой форме приостанавливаем ActionManager.

procedure TForm1.FormDeactivate(Sender: TObject);
begin
  ActionManager1.State := asSuspended;
end;

Когда фокус возвращается - возобновляем:

procedure TForm1.FormActivate(Sender: TObject);
begin
  ActionManager1.State := asNormal;
end;

P.S. Вообще не рекомендуется перекрывать стандартные дейсвия типа: Ctrl+A, Ctrl+С, Ctrl+V и прочие.

[Lime]

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

Привет всем! У меня такая проблема. Короче в одном окне есть tActionMenager с целой кучей экшенов. У многих экшенов установлены горячие клавиши, на типа Ctrl+C, Alt+F и т.д. Проблема в том, что в другом окне есть Поле ввода. И вот если там нажать Ctrl+C, то выделенный текст не только не копируется, но и срабатывает событие onExecate у действия в другом окне. Как мне сделать так, что бы горячие клавиши работали бы только в пределах заданого окна?

Вместо мэнэджера руками проверять что было нажато на форме

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin

end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin

end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin

end;

end.


form1.KeyPreview := true;