如何在Lazarus中捕获菜单项高亮时的Del按键事件（跨Windows/GTK2）

核心思路 #

利用Lazarus标准的Application.OnMessage事件捕获全局键盘输入，结合FindHighlighted方法获取当前高亮的菜单项，实现跨Windows和GTK2平台的菜单项删除逻辑。

实现步骤 #

1. 绑定全局消息处理事件

在主窗体的OnCreate事件中，给Application绑定自定义消息处理过程：

procedure TMainForm.FormCreate(Sender: TObject);
begin
  Application.OnMessage := AppMessageHandler;
end;

2. 编写消息处理逻辑

在主窗体中添加私有方法，处理Del键按下事件并删除目标菜单项：

procedure TMainForm.AppMessageHandler(var Msg: TMsg; var Handled: Boolean);
var
  HighlightedItem: TMenuItem;
begin
  // 捕获Del键按下的消息
  if (Msg.Message = WM_KEYDOWN) and (Msg.wParam = VK_DELETE) then
  begin
    // 获取当前高亮的菜单项
    HighlightedItem := Screen.ActiveForm.Menu.FindHighlighted;
    if Assigned(HighlightedItem) then
    begin
      // 判断是否为File菜单下的可删除项（此处用Tag=1标记可删除，可根据需求调整）
      if (HighlightedItem.Parent = FileMenu) and (HighlightedItem.Tag = 1) then
      begin
        HighlightedItem.Free; // 删除菜单项
        Handled := True; // 标记消息已处理，避免后续传递
      end;
    end;
  end;
end;

3. 标记可删除菜单项

在动态添加最近使用文件等可删除菜单项时，设置Tag属性标记：

procedure TMainForm.AddRecentFile(const FileName: string);
var
  NewItem: TMenuItem;
begin
  NewItem := TMenuItem.Create(FileMenu);
  NewItem.Caption := FileName;
  NewItem.Tag := 1; // 标记为可删除项
  FileMenu.Add(NewItem);
end;

关键说明 #

• Screen.ActiveForm.Menu.FindHighlighted是Lazarus跨平台标准方法，可在Windows和GTK2环境下准确获取当前高亮的菜单项。
• 通过Tag属性区分可删除项与固定菜单项（如Open、Save），避免误操作。
• 设置Handled := True可阻止Del键消息继续传递到其他控件，确保操作只作用于目标菜单项。

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