Delphi Custom popup/dropdown，怎么样？

Question

我想制作一个自定义的下拉菜单/弹出菜单，下面有一个很好的阴影。问题是它不是标准菜单，我需要在弹出/下拉菜单中放置一些组件。所以基本上我想要一个下拉菜单，我可以做任何我想做的事情，而不仅限于简单的菜单项。我希望它表现得像一个普通的弹出菜单问题是我从哪里开始。任何解决方案？引用资料？

Answer 1

您可以使用 TPopupMenu 并提供自定义绘图。这是通过设置

PopupMenu1.OwnerDraw := True;

然后编写 OnMeasureItem() 或 OnAdvancedDrawItem() 事件以确定自定义绘画所需的大小。然后编写 OnDrawItem() 事件以根据需要绘制 Canvas 。