请问如何实现托盘图标的弹出菜单? 点击左右键菜单不同,好象要捕获鼠标,不知道该怎么做? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 用控件吧, 比较方便, RxLib就有的 定义一个消息procedure TrayNotifyMessage(var Sender: TMessage); message WM_TRAYNOTIFY;procedure TChatForm.TrayNotifyMessage(var Sender: TMessage);var p:tpoint;begin getcursorpos(p); if Sender.LParam = WM_RBUTTONUP then mnuTray.Popup(p.X ,p.Y); //mnuTray为一个Popmenuend; 新年快乐 这句可以这么理解吗 WebBrowser+mshtml 如何控制无法查看代码的ajax网页 聘企业信息化架构分析师 6~8K 小弟,跪求高首相助,!! Image->Picture->LoadFromFile问题。 如何判断一个文件的存在? 请问哪里可以下载<<delphi5开发人员指南>>的随书光盘??谢谢谢 为什么会出现异步操作,怎么解决 我做了一个数据库单表或多表的查询组件包很好用。请大家多提意见 怎样让TTreeView具有数据敏感特性? 如何建立一个全局变量?涉及参数在不同的窗口传递的问题
procedure TrayNotifyMessage(var Sender: TMessage); message WM_TRAYNOTIFY;procedure TChatForm.TrayNotifyMessage(var Sender: TMessage);
var
p:tpoint;
begin
getcursorpos(p);
if Sender.LParam = WM_RBUTTONUP then
mnuTray.Popup(p.X ,p.Y); //mnuTray为一个Popmenu
end;