德尔福TAction ShortCut不适用于子表单

Question

我在Form2上有一个操作列表( Action，actlst11)，它位于主窗体(如这里)的页面控件的TTabSheet上的运行时。

我为来自子Num + (actlst11)的actZoomIn Action添加了一个快捷的Form2，但不幸的是它没有触发。动作连接到Form2上的位按钮。

从主窗体触发操作的任何快捷方式，放置在选项卡上页控制(Form2)中的子窗体的任何快捷方式都不会触发。

什么可能是错误的，我如何可以将快捷方式从主要的儿童形式或一些工作？

Answer 1

您所描述的场景在现代Delphi中发挥了您希望的作用。TCustomForm.IsShortCut的实现发生了变化。较早的Delphi实现维护了一个按格式的操作列表列表，并在IsShortCut中检查该列表。这意味着只检查与顶层窗体相关的操作列表。在现代Delphi中，IsShortCut的实现遵循所有权层次结构。只要子窗体最终属于顶级窗体，那么子窗体的操作列表就会被定位。

对于您来说，最简单的解决方案可能是为顶级表单的OnShortcut事件实现一个事件处理程序。看起来是这样的：

procedure TTopLevelForm.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
begin
  Handled := ChildForm.IsShortCut(Msg);
end;

如果您有多个子表单，那么您将希望遍历所有的子窗体，从而给每个子窗体一个处理快捷方式的机会。看起来可能是这样：

procedure TTopLevelForm.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
var
  i: Integer;
begin
  for i := 0 to FChildForms.Count-1 do
  begin
    Handled := FChildForms[i].IsShortCut(Msg);
    if Handled then
      exit;
  end;
end;

显然，在这段代码中，您维护了FChildForms。

或者，如果您希望实现与Embarcadero相同的解决方案，则可以遍历所有权层次结构。