delphi菜单项提示框

delphi菜单项提示框 帮助 源码介绍： 本源码可以让delphi菜单控件（TMainMenu、TPopupMenu）出现一个提示窗口，相当于hint窗口，该方法支持第三方的菜单控件，而现在大部分软件包括微软的都没有主菜单或者弹出菜单出现提示窗口的功能，其实该功能应用极其广泛，如果你的软件有此功能，可以大幅度提高软件的友好度，本提示窗口是很普通的hint窗口，其实还可以进一步自定义美化的，用户自己研究吧！本源码在delphi7下编译通过。 ================================================================== ================================================================== 原理： TMainMenu 菜单 提示窗口 只要设置菜单项的hint属性就可以了 ==================================== TPopupMenu 菜单 提示窗口 基本原理方法 在 PopupMenu1.onPopup 事件中，设置Items[i].Hint 使 项目提示信息=项目.指针 然后消息传送到 Application.onHint 事件 （两者delphi自然关联） 然后在 Application.onHint 事件 处理 Items[i].Hint事件。 在 FormCreate事件中 设置 miHint.hideTimer.Interval := 12000; //单位：微秒，提示窗口显示时间长度 12秒 ， miHint.showTimer.Interval := 200; // 单位：微秒，提示窗口触发等待间隔 提示窗口其实还可以进一步自定义美化的，用户自己研究吧！ ---------------- menu.pas 文件为我的修改版 在 TPopupMenu.Popup(X, Y: Integer); 处添加一条语句 //发送弹出菜单关闭消息 Application.Hint := 'TPopupMenu.Popup_end_yun';// PopupMenu 弹出菜单 end 标志 这个修改版文件不是很重要的，可以不要它的，增加它是为了解决 提示框无法消失的问题，其实根据它的原理，你完全可以创作出菜单新的属性、方法、事件 如果你为了保持兼容，可以删除本目录下的 menu.pas、menu.dcu 文件 MenuItemHints.exe.manifest 可以随便删除的 ---------------- 解释： 即每次选择PopupMenu 项目时，delphi把 PopupMenu1.Items[i].Hint 作为 Application.Hint 传送到 Application.onHint 事件中（两者delphi自然关联），然后在Application.onHint 事件中根据Application.Hint（实际为Items[i].menuindex），得到当前项目菜单指针，填充实际提示窗口显示数据，启动提示窗口。 ============================================= 该方法支持第三方的MainMenu、PopupMenu控件