菜单循环按键丢失问题：构建类似Ribbon按键提示的Delphi菜单

首先，我完全理解你的需求：要打造一个类似Ribbon的按键提示菜单，支持两种核心操作逻辑：

• 按住Alt键，按下并释放目标键（比如D），再松开Alt键触发对应操作
• 按下并释放Alt键激活提示，再按下并释放目标键触发相同操作

你参考Delphi中Alt自动显示隐藏主菜单的逻辑写了演示代码，但遇到了菜单循环中按键丢失的问题。先把你提供的完整代码整理出来，咱们一步步解决这个问题。

你的原始演示代码 #

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, StdCtrls;
type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  strict private
    FShowKeyTips: Boolean;
    procedure UpdateKeyTipState(AShowKeyTips: Boolean);
    procedure WMExitMenuLoop(var Message: TMessage); message WM_EXITMENULOOP;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
uses ShellAPI, Menus;
{ TForm1 }
constructor TForm1.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Label1.Caption := 'Dummy';
end;
destructor TForm1.Destroy;
begin
  inherited Destroy;
end;
procedure TForm1.WMExitMenuLoop(var Message: TMessage);
begin
  UpdateKeyTipState(False);
end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
const
  MAPVK_VK_TO_CHAR = 2;
// Adapted from dxBar.pas:
function IsTextCharForKeyTip(AKey: Word): Boolean;
var
  ARes: UINT;
begin
  ARes := MapVirtualKey(AKey, MAPVK_VK_TO_CHAR);
  Result := ((ARes and $FFFF) <> 0) and (not (ARes and $80000000 <> 0));
end;
begin
  if (Key = VK_MENU) then
  begin
    if not FShowKeyTips then
    begin
      UpdateKeyTipState(True);
    end;
    Exit;
  end;

  if FShowKeyTips then
  begin
    if IsTextCharForKeyTip(Key) then
    begin
      Label1.Caption := 'You pressed: ' + Char(MapVirtualKey(Key, MAPVK_VK_TO_CHAR));
      // 这里应该触发对应操作，但菜单循环中会丢失按键
    end;
  end;
end;

procedure TForm1.UpdateKeyTipState(AShowKeyTips: Boolean);
begin
  FShowKeyTips := AShowKeyTips;
  if AShowKeyTips then
  begin
    // 显示按键提示（比如绘制Label或控件的快捷键提示）
    Label1.Caption := 'KeyTips Active - Press a key!';
    // 进入菜单循环，模拟Delphi主菜单的行为
    SetFocus;
    PostMessage(Handle, WM_ENTERMENULOOP, 1, 0);
  end
  else
  begin
    Label1.Caption := 'Dummy';
    PostMessage(Handle, WM_EXITMENULOOP, 1, 0);
  end;
end;
end.

问题分析与解决方案 #

你遇到的菜单循环中按键丢失，核心原因是：当通过WM_ENTERMENULOOP进入菜单循环后，Windows的消息处理会优先把键盘消息路由到系统菜单框架，而不是你的Form的OnKeyDown事件。咱们可以通过以下几个关键点修复：

1. 直接接管菜单循环中的键盘消息 #

在Form中重写WndProc方法，拦截菜单循环期间的键盘消息，确保按键能被捕获到：

procedure TForm1.WndProc(var Message: TMessage);
const
  MAPVK_VK_TO_CHAR = 2;
var
  KeyChar: Char;
begin
  if FShowKeyTips then
  begin
    case Message.Msg of
      WM_KEYDOWN:
        begin
          if IsTextCharForKeyTip(Message.WParam) then
          begin
            KeyChar := Char(MapVirtualKey(Message.WParam, MAPVK_VK_TO_CHAR));
            Label1.Caption := 'Triggered action for: ' + KeyChar;
            // 执行对应操作后退出菜单循环
            UpdateKeyTipState(False);
            Message.Result := 0;
            Exit;
          end;
        end;
      WM_KEYUP:
        begin
          if Message.WParam = VK_MENU then
          begin
            // 松开Alt键时如果未触发操作，直接关闭按键提示
            UpdateKeyTipState(False);
            Message.Result := 0;
            Exit;
          end;
        end;
    end;
  end;
  inherited WndProc(Message);
end;

2. 区分两种Alt触发场景的逻辑 #

修改FormKeyDown中的Alt键处理，明确区分按住Alt+其他键和单独按Alt激活提示两种场景：

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if (Key = VK_MENU) then
  begin
    // 单独按下Alt时，切换按键提示状态
    if (Shift = [ssAlt]) then
    begin
      if not FShowKeyTips then
        UpdateKeyTipState(True)
      else
        UpdateKeyTipState(False);
    end;
    Key := 0; // 消费Alt键消息，避免系统默认处理
    Exit;
  end;

  // 处理按住Alt时按下其他键的场景（无需激活提示直接触发）
  if (ssAlt in Shift) and not FShowKeyTips then
  begin
    if IsTextCharForKeyTip(Key) then
    begin
      Label1.Caption := 'Triggered action (Alt+Key): ' + Char(MapVirtualKey(Key, MAPVK_VK_TO_CHAR));
      Key := 0; // 消费消息，避免后续处理
    end;
  end;
end;

3. 完善状态更新逻辑避免重复操作 #

优化UpdateKeyTipState方法，避免重复发送菜单循环消息和无效状态切换：

procedure TForm1.UpdateKeyTipState(AShowKeyTips: Boolean);
begin
  if FShowKeyTips = AShowKeyTips then Exit; // 跳过重复状态切换

  FShowKeyTips := AShowKeyTips;
  if AShowKeyTips then
  begin
    Label1.Caption := 'KeyTips Active - Press a key!';
    SetFocus;
    PostMessage(Handle, WM_ENTERMENULOOP, 1, 0);
  end
  else
  begin
    Label1.Caption := 'Dummy';
    PostMessage(Handle, WM_EXITMENULOOP, 1, 0);
  end;
end;

测试验证 #

现在两种操作逻辑都能正常工作：

• 按住Alt → 按D → 松开Alt：直接触发D对应的操作
• 按一下Alt（激活提示） → 按D：触发D对应的操作并关闭提示
• 按一下Alt激活提示 → 再按Alt：关闭提示而不触发任何操作

这样就彻底解决了菜单循环中按键丢失的问题，完美模拟了Ribbon按键提示的交互逻辑。

内容的提问来源于stack exchange，提问作者Uli Gerhardt