首页 > 代码库 > delphi 菜单的项目是否可用
delphi 菜单的项目是否可用
菜单的项目是否可用
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
来自为知笔记(Wiz)
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。