delphi - 如何让快捷键根据事件选项卡页执行不同的操作？

Question

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

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

当标签页显示或隐藏时，是否需要在 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;