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)