PopupMenu问题 弹出菜单以后,如何知道菜单什么时候关闭了? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 自己截获一下消息WM_COMMANDWM_CONTEXTMENU WM_DRAWITEMWM_ENTERMENULOOPWM_EXITMENULOOPWM_INITMENUWM_INITMENUPOPUPWM_MEASUREITEMWM_MENUCHARWM_MENUSELECTWM_SYSCOMMAND 看看那个是你要的 楼上列出的是系统菜单的消息, 与PopupMenu没关系 WM_COMMAND WM_CONTEXTMENU WM_DRAWITEM WM_ENTERMENULOOP WM_EXITMENULOOP WM_INITMENU WM_INITMENUPOPUP WM_MEASUREITEM WM_MENUCHAR WM_MENUSELECT WM_NEXTMENU WM_SYSCOMMAND 关键看一下 WM_EXITMENULOOP看一此消息 WM_EXITMENULOOP //关键要记住 加入 TPM_RETURNCMDif TrackPopupMenu( PopupMenu1.Handle ,TPM_LEFTALIGN or TPM_RETURNCMD , 100 , 100,0,Handle ,nil) then Panel1.Caption := '1'else Panel1.Caption := '2' ; FastReports求助 Timage和TLable组合控件的问题? 有谁知道IWebBrowser2 在哪里 是Delphi自带的还是三方 如何知道数据已经更改? 一个关于多个服务器切换的问题!(真的很急!,请帮帮忙!) 如何得到唯一的文件名? 有关RAVE报表的问题 ====文档损坏,高分求救===== Active Form 能使用TDataModule嗎? 请问高手怎么获取OE的邮件地址? 这段代码如何设事务(高手请看看) 请问哪里有BDE下载?
WM_COMMAND
WM_CONTEXTMENU
WM_DRAWITEM
WM_ENTERMENULOOPWM_EXITMENULOOPWM_INITMENU
WM_INITMENUPOPUP
WM_MEASUREITEM
WM_MENUCHAR
WM_MENUSELECT
WM_SYSCOMMAND 看看那个是你要的
WM_CONTEXTMENU
WM_DRAWITEM
WM_ENTERMENULOOP
WM_EXITMENULOOP
WM_INITMENU
WM_INITMENUPOPUP
WM_MEASUREITEM
WM_MENUCHAR
WM_MENUSELECT
WM_NEXTMENU
WM_SYSCOMMAND
关键看一下 WM_EXITMENULOOP看一此消息 WM_EXITMENULOOP
if TrackPopupMenu( PopupMenu1.Handle ,TPM_LEFTALIGN or TPM_RETURNCMD , 100 , 100,0,Handle ,nil) then
Panel1.Caption := '1'
else
Panel1.Caption := '2' ;