delphi - 将 TPoupMenu 分配给 TAdvColumnGrid 中的就地编辑器

Question

我正在开发 TAdvColumnGrid，其中遇到 PopupMenu 的一个问题。我已将弹出菜单分配给网格。当选择/聚焦网格中的单元格时，右键单击鼠标按钮，我可以显示弹出菜单。

但如果列单元格处于编辑模式并且我单击鼠标右键按钮，则会出现默认窗口弹出窗口。

我希望显示与选择单元格时显示的相同的弹出窗口。

请找到下面两个弹出窗口的图像。

如果需要更多信息，请告诉我。

谢谢和问候，安 git ·巴尔布德

Answer 1

您还没有提到您使用的版本。但例如对于 TAdvColumnGrid 版本 3.1.3.9，您可以覆盖 CreateEditor方法:

type
  TAdvColumnGrid = class(AdvCGrid.TAdvColumnGrid)
  protected
    function CreateEditor: TInplaceEdit; override;
  end;

implementation

{ TAdvColumnGrid }

function TAdvColumnGrid.CreateEditor: TInplaceEdit;
begin
  Result := inherited;
  if Result is TAdvInplaceEdit then
    TAdvInplaceEdit(Result).PopupMenu := PopupMenu; { ← assign to editor popup menu }
end;