forms - 当表单没有焦点时，如何防止表单处理热键？

Question

我们有一个 Delphi XE2 应用程序。 Form1有快捷键 Ctrl+F 和 Form2 ，它是事件的，没有热键。用户在 Form2 上按 Ctrl+F和 Form1处理热键。这是完全不正确的，因为我们看到了非事件形式的事件。我如何解决它？

Answer 1

我使用 Action 实现所有快捷键处理。如果您这样做，那么您可以使用操作、操作列表、操作管理器等提供的集中化来启用和禁用基于表单是否处于事件状态的所有操作。

例如，通过设置操作列表的 State 来做到这一点。 OnActivate 上的属性(property)和 OnDeactivate表单的事件处理程序:

procedure TMyForm.FormActivate(Sender: TObject);
begin
  ActionList.State := asNormal;
end;

procedure TMyForm.FormDeactivate(Sender: TObject);
begin
  ActionList.State := asSuspended;
end;