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

Question

德尔福 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

您可以使用如何设置热键中的提示

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

tabNB.PageIndex:= tabNB.PageIndex +1;

在 onHotKey 事件中。

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