delphi - 用于转换菜单的Delphi XE2组件

Question

在我的应用程序（Delphi Xe2）中，我具有“多项选择”按钮（即“导出”按钮具有“导出到PDF”和“导出到XLS”选项）。
我需要一个菜单​​，就像将鼠标移到按钮（或面板或其他对象）上时出现的弹出菜单一样。此菜单需要显示在按钮下方，并且必须是“ VCL可样式化”组件。
我尝试了TPopUpMenu，但隐藏起来并不方便。
我也可以考虑使用OnClick事件而不是OnEnter显示菜单。

Answer 1

您可以使用样式设置为TButton的bsSplitButton，以及设置为按钮的TPopupActionBar属性的DropDownMenu。单击带有向下箭头的右拆分时，菜单会下拉。仅适用于Vista和更高版本。

对于较早的操作系统，可以使用以下内容：

procedure TForm1.Button1Click(Sender: TObject);
var
  Pt: TPoint;
begin
  Pt := ClientToScreen(Point((Sender as TButton).Left, (Sender as TButton).Top));
  PopupActionBar1.Popup(Pt.X, Pt.Y + (Sender as TButton).Height);
end;