delphi 菜单的项目是否可用

时间：2014-08-01 13:13:41 阅读：202 评论：0 收藏：0 [点我收藏+]

菜单的项目是否可用

TPopupMenu.OnPopup事件

把代码放在这里面判断

// ------------------------------------------------------------------------------

procedure Tfrm_Main.pm_EditorPopup(Sender: TObject);

begin

mni_Undo.Enabled:= document.queryCommandEnabled(‘Undo‘);

mni_Redo.Enabled:= document.queryCommandEnabled(‘Redo‘);

mni_Cut.Enabled:= document.queryCommandEnabled(‘Cut‘);

mni_Copy.Enabled:= document.queryCommandEnabled(‘Copy‘);

mni_del.Enabled:= document.queryCommandEnabled(‘Delete‘);

mni_Paste.Enabled:= document.queryCommandEnabled(‘Paste‘);

mni_selectAll1.Enabled:= document.queryCommandEnabled(‘SelectAll‘);

end;

如果不用这个用不专业的办法做

1 用消息捕获

2 放在一个Timer事件下面

3 放在Application.OnMessage下面

正解

Ctrl

OnContextPopup

OnPopup

原文地址：http://www.cnblogs.com/xe2011/p/3884584.html

踩

(0)

评论一句话评论（0）

分享档案

更多>

周排行