使用快捷键更改选项卡式笔记本中的活动页面;

Question

Delphi v7。我在这里学到很多东西。人们非常乐意提供帮助。所以，我还有一个问题。

我想使用快捷键更改选项卡式笔记本的活动页面。我可以在控件内部的keydown事件中执行此操作，但它不会节省任何时间在控件内部单击而不是单击笔记本上的选项卡。

示例Delphi7：

procedure TForm1.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if (ssCtrl in Shift) and (Upcase(Chr(key)) = 'T') then
   tabNB.PageIndex:= tabNB.PageIndex +1;
end;

目标是能够使用快捷键而无需在控件的keydown事件中执行此操作。是否有可能在项目的某个全球范围内编写一个允许我这样做的程序？

Answer 1

您可以使用How to set up hot key

中的提示

或者您可以使用JVCL Jedi库中的TJvApplicationHotKey组件（免费），将其放在表单上，​​设置Hotkey属性，将active属性设置为true，然后输入代码

tabNB.PageIndex:= tabNB.PageIndex +1;

在onHotKey事件中

。

顺便说一句，TNoteBook是一个旧组件，你可以使用TPageControl作为替代品。