将TPoupMenu分配给TAdvColumnGrid中的Inplace编辑器

时间:2018-07-25 17:16:54

标签: delphi popupmenu tms

我正在研究TAdvColumnGrid,其中我遇到PopupMenu的一个问题。 我已经为网格分配了一个弹出菜单。当网格中的单元格被选中/聚焦后,右键单击鼠标按钮,我可以显示PopupMenu。

但是如果列单元格位于edit mode中,并且我单击了right mouse按钮,则会出现default windows Popup

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

请找到以下两个弹出窗口的图像。 Popup 1 and default Popup

请让我知道是否需要更多信息。

感谢和问候, Ankit Balbudhe

1 个答案:

答案 0 :(得分:2)

您没有提到您使用的版本。但是例如对于 TAdvColumnGrid 版本3.1.3.9,您可以覆盖https://angular.io/guide/deployment方法:

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;