delphi 菜单的项目是否可用

菜单的项目是否可用
delphi 菜单的项目是否可用
TPopupMenu.OnPopup事件
把代码放在这里面判断
 
 
delphi 菜单的项目是否可用
 
 
//
------------------------------------------------------------------------------
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
上一篇:HTML5服务器推送消息的各种解决办法


下一篇:在ubuntu下配置android开发环境