delphi - 如何禁用 dxRibbon 按键提示？

Question

细节/场景：

我将 Delphi XE6 与 DevExpress 13.1.4 组件一起使用，并且我有一个 dxRibbon 组件。

我的意思是 F, Y1, Y2, Y3... 1, 2, 3... 当我按下键盘上的 alt 时会出现，如下所示：

问题：

我想禁用功能区的键提示（当我在键盘上按 alt 时出现的键提示），我尝试了很多方法，但我无法禁用它，怎么做？

限制：

我无法修改 dxRibbon.pas 的源代码或重建 DevExpress 组件。

Answer 1

您已提出以下要求：

1. 您的程序必须使用 DevExpress 功能区。
2. 您的程序不得修改 DevExpress 功能区。

此DevExpress 支持线程声明无法禁用键盘快捷键提示。

从中我们可以得出结论，不可能实现您的目标。

Answer 2

步骤 1. 使用 Andy 的 VCL VCLFixPack。

步骤 2. 创建一个新单元：

unit DxBarNix; 
interface 
implementation uses VclFixPack,   dxBar;   

var   

NixKeyHook: TXRedirCode;

procedure NixKeyTip(   AShowKeyTipWindows: Boolean); 
begin   
end;

procedure StartDxRibbonHook; 
begin   
    HookProc(@dxBar.TdxBarNavigationController.EndKeyTipsWaiting, @NixKeyTip, NixKeyHook); 
end;

procedure StopDxRibbonHook; 
begin   
     UnhookProc(@dxBar.TdxBarNavigationController.EndKeyTipsWaiting, NixKeyHook); 
end;


initialization
StartDxRibbonHook;

finalization

StopDxRibbonHook;
end.

在此之后，KeyTips 将消失。