首页 > 代码库 > 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)