上传者: ggggcexx
|
上传时间: 2021-11-05 17:04:02
|
文件大小: 747KB
|
文件类型: -
自己制作的一个漂亮的(使用gdi+绘制)弹出菜单(delphi)
完全兼容Delphi自带的TPOPUPMENU,因为直接从它继承而来,只是单元中我创建了一个用于菜单项显示的类,绘制弹出窗体的背景和菜单项的绘制使用GDI+技术.具有阴影效果.
因为自带的TPOPUPMENU创建的窗体不够好看,所以弹出的窗体是自己用API创建的,为了达到透明效果,将创建的窗体设为LayedWindow了.
如有不懂,请联系我.