时间戳

首页 > 解决方案 > 自定义按钮，带有 PopupMenu 的 OnClick

delphi - 自定义按钮，带有 PopupMenu 的 OnClick

问题描述

所以我创建了一个基于 cxButton 的自定义按钮。我希望在单击此按钮时显示一个弹出菜单。但由于某种原因，弹出菜单没有出现。我什至没有收到错误，我不知道为什么。

type
  TcxGridButton = class(TcxButton)
  private
    FGridView : TcxGridDBTableView;
    FPopup : TPopupMenu;

    procedure AutoSize(Sender : TObject);
    procedure ClearFilter(Sender : TObject);
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor Create(AOwner : TComponent); override;

    procedure Click; override;
  published
    property GridView : TcxGridDBTableView read FGridView write FGridView;
  end;

这是我创建弹出菜单的部分

constructor TcxGridButton.Create(AOwner: TComponent);
var Item : TMenuItem;
    P : TPoint;
begin
  inherited;

  Text:='Options';

  FPopup := TPopupMenu.Create(Self);

  Item := TMenuItem.Create(FPopup);
  Item.Caption:='Nach Excel exportieren';

  Item := TMenuItem.Create(FPopup);
  Item.Caption:='Automatische Größenanpassung';
  Item.OnClick:=AutoSize;

  Item := TMenuItem.Create(FPopup);
  Item.Caption:='Filter löschen';
  Item.OnClick:=ClearFilter;
end;

现在，当我将此按钮放在表单上时，它会立即显示文本选项，因此构造函数似乎运行正常。

但是当我单击此按钮时，我会得到 Click、Self.ToString 和 Done。但是 Popup 菜单永远不会 Pops up 。我的错误是什么？

procedure TcxGridButton.Click;

begin
  inherited; // call the inherited Click method.

  ShowMessage('CLICK');

  if not Assigned(FGridView) then Exit;

  ShowMessage(Self.ToString);


  FPopup.Popup(0,0);


  ShowMessage('DONE');

end;

标签： delphieventscomponents

解决方案

答案很简单——您忘记将项目添加到弹出菜单中：

{ after creating each item }
FPopup.Items.Add(Item);

如果您不受约束，TCxButton您可以使用标准 VCL 按钮，该按钮提供您尝试通过 property Styleset tobsSplitButton和 property实现的功能DropDownMenu。否则，您至少可以研究 VCL 的TCustomButton源代码作为您自己实现的灵感。

推荐阅读