如何让快捷键根据活动选项卡页执行不同的操作？

Question

我的 TPageControl 上的每个 TTabSheet 上都有一个 TToolBar。每个工具栏都有一个 TToolButton ，它应该响应相同的键盘快捷键。如何提供热键以便为当前页面调用右侧按钮？

在第一个选项卡上， Ctrl+T 应该会发生一些事情，但是切换到第二个选项卡时， Ctrl+T< /kbd> 应该让其他事情发生。

当选项卡显示或隐藏时，是否需要在 asNormal 和 asSuspished 之间切换 TActionList.State？

Answer 1

如果您希望 Ctrl+T 只是在 PageControl 上的活动 TabSheets 之间切换，则创建一个 操作，使用 Ctrl+T 快捷键，并根据需要在页面之间翻转：

procedure TForm1.actNextPageExecute(Sender: TObject)
var
   nextPageIndex: Integer;
begin
   nextPageIndex := PageControl1.ActivePageIndex+1;

   if (nextPageIndex > PageControl1.Pages.Count-1) then
       nextPageIndex := 0;

   PageControl1.ActivePageIndex := nextPageIndex;
end;

Answer 2

如果您希望一个 TAction 根据启动它的控件执行不同的操作，只需查看该操作的 ActionComponent 属性即可。将所有控件挂钩到同一操作。

另一种方法是使用相同的快捷方式进行多个操作，并根据可见或聚焦的内容在更新事件中启用或禁用它们。