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)

delphi 菜单的项目是否可用