使自定义右键菜单快捷键生效

最新推荐文章于 2024-08-16 13:45:27 发布

qq_43466604

最新推荐文章于 2024-08-16 13:45:27 发布

阅读量731

点赞数

CC 4.0 BY-SA版权

分类专栏： delphi

本文链接：https://blog.youkuaiyun.com/qq_43466604/article/details/84851836

delphi 专栏收录该内容

10 篇文章

订阅专栏

本文探讨了在特定组件状态中处理菜单键的逻辑，包括检查设计模式、自动上下文菜单的配置，以及如何在收到键盘消息时决定是否触发菜单弹出。此外，还介绍了如何在鼠标位置调用上下文菜单并处理相应的操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

function TCustomThumbView.IsMenuKey(var Message: TWMKey): Boolean;
var
  LocalPopupMenu: TPopupMenu;
begin
  Result := True;
  if not (csDesigning in ComponentState) then
  begin
    LocalPopupMenu := FAutoContextMenu;
    if Assigned(LocalPopupMenu) and (LocalPopupMenu.WindowHandle <> 0) and
      LocalPopupMenu.IsShortCut(Message) then Exit;
  end;
  Result := False;
end;

procedure TCustomThumbView.CNKeyDown(var Message: TWMKeyDown);
begin
  with Message do
  begin
    Result := 1;
    UpdateUIState(Message.CharCode);
    if FAutoContextMenu.AutoPopup and IsMenuKey(Message) then Exit;
  end;
  inherited;
end;

procedure TCustomThumbView.CNSysKeyDown(var Message: TWMKeyDown);
begin
  with Message do
  begin
    Result := 1;
    if FAutoContextMenu.AutoPopup and IsMenuKey(Message) then Exit;
  end;
  inherited;
end;

procedure TCustomThumbView.DoContextPopup(MousePos: TPoint;
  var Handled: Boolean);
begin
  if FAutoContextMenu.AutoPopup then
  begin
    MousePos := ClientToScreen(MousePos);
    FAutoContextMenu.Popup(MousePos.X, MousePos.Y);
    Handled := True;
  end
  else inherited;
end;