怎样给popupmenu添加背景图片呢？

有什么方法或控件吗？我初学DELPHI 希望大家帮帮忙。

解决方案 »

  1.   

    试下CoolMenus Pro控件，然后认真看它的DEMO
      

  2.   

    PopupMenu1.OwnerDraw := True;
    然后在他的 TMenuItem.onDrawItem 自己写个重绘函数
    自己切割要画的图象，相当于把大图按ITEM个数，分成很多小部分，自己动态把这小图依次画上，可能外部得用个变量来控制，  TMenuDrawItemEvent = procedure (Sender: TObject; ACanvas: TCanvas;
        ARect: TRect; Selected: Boolean) of object;