自己制作的一个漂亮的具有透明和阴影效果的(使用gdi+绘制)弹出菜单(delphi)

自己制作的一个漂亮的(使用gdi+绘制)弹出菜单(delphi) 完全兼容Delphi自带的TPOPUPMENU,因为直接从它继承而来,只是单元中我创建了一个用于菜单项显示的类,绘制弹出窗体的背景和菜单项的绘制使用GDI+技术.具有阴影效果. 因为自带的TPOPUPMENU创建的窗体不够好看,所以弹出的窗体是自己用API创建的,为了达到透明效果,将创建的窗体设为LayedWindow了. 如有不懂,请联系我.