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

Question

Delphi v7.我在这里学到了很多。人们都很乐于提供帮助。所以，我还有另一个问题。

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

示例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作为替代。