delphi - 为什么单击我的 TToolButton 不显示下拉菜单？

Question

我正在使用 Delphi 2010，并且我有一个 TToolBar 包含的 TToolButton。分配给我的 TToolButton 的“DropdownMenu”属性的是一个标准的 TPopupMenu。

显示菜单的唯一方法是单击图像中红色箭头指向的区域。目前，单击绿色箭头指向的区域会显示按钮已按下，但不会出现下拉菜单。

我想要的是，如果用户单击任意位置(由绿色箭头或红色箭头指向)就会显示菜单。是否可以启用此功能？

Answer 1

tbsDropDown 样式的想法是让一个按钮在单击时触发某些默认操作，但在下拉菜单中提供该操作的更多变体。

如果你不关心向下箭头消失，可以将样式设置为tbsButton，无论点击按钮的哪个位置，都会显示弹出菜单。

如果您像我一样，并且确实希望那里有箭头来表明该按钮后面还有更多选项，您可以调用 CheckMenuDropdown在按钮的 OnClicked 事件处理程序中。