如何实现XP样式的PopupMenu?

Question

用d7可以轻松实现(不如MainMenu轻松)xp样式的主菜单，可是似乎没有提供PopupMenu的实现方案？
如果有这样的方法，请详细说明实现过程。如果d7没有这样的方案，请提供实现这样的菜单的任意方案
谢谢

Answer 1

xpmenu 可以实现mainmenu的XP样式，你看一下他的源程序自己修改一下，看看能不能实现仅供参考

Answer 2

我有控件，请告诉我地址
[email protected]

Answer 3

在7下不用控件能不能
实现如何实现XP样式的PopupMenu？

Answer 4

你找找xpmenu的源码看看吧。不过放着现成的控件干吗不用呢？

Answer 5

关注,Borland也真是的,MainMenu可以轻松设置成XpMenu模式,
PopupMenu竟然没有,晕……,还是给楼主抬一下,不用第三方控件
如何能够实现,Delphi7他自己使用的PopupMenu竟然可以,哈哈
不明白

Answer 6

还有，d7的xp样式的主菜单（TActionMainMenuBar）好象有个奇怪的问题，不知道是不是bug？
当子菜单项过多时（我放了18项），弹出时居然不会自动寻找“能够完整显示所有菜单项”的方法，问题在哪里呀？这个感觉很不爽，我都受不了，用户怎么办？
xpmenu也有奇怪的地方，应用后主菜单项是旧样式的（非xp样式的），而下面弹出的子菜单是xp样式的，上下不统一，感觉也怪怪的，这不知是不是xpmemu的bug？还是我的问题？请各位赐教！谢谢！

Answer 7

不是BUG,是个顺序问题!可以做些调整,如XPMenu.Active,先设False,再调整为True!property Active: boolean read FActive write SetActive;procedure TXPMenu.SetActive(const Value: boolean);
begin  FActive := Value;  if FActive then
  begin
    InitMenueItems(false);
    InitMenueItems(true);
  end
  else
    InitMenueItems(false);  Windows.DrawMenuBar(FForm.Handle);
end;

Answer 8

xpmenu实现的xp样式popupmenu与borland的差太远，样子极不好看（毕竟是tpopupmenu改造的），borland是怎么搞的