MDI 菜单主菜单的可视化属性的修改

Tags: /超级猛料/VCL/Menu.菜单/ Date Created:

MDI 菜单主菜单的可视化属性的修改
对MDI窗体中的主菜单来说，下拉菜单例如File下拉后的菜单，你要修改某个菜单项例如Open的Visiable，Enable，Checked等属性，都是正常的，但如果你要对File本身进行隐藏，Disable等，你会发现不起作用，如果要实现这个功能可以调用API来实现：

procedure TForm2.mnuTestEnableClick(Sender: TObject);
begin
 mnuTestEnable.Checked := not mnuTestEnable.Checked;
 // Hm.... :\ mnuEdit.Enabled := mnuTestEnable.Checked; ==> no reponse
 if mnuTestEnable.Checked then
   EnableMenuItem(Form1.mnuMain.Handle,
     mnuEdit.Command, MF_BYCOMMAND or MF_ENABLED)
 else
   EnableMenuItem(Form1.mnuMain.Handle,
     mnuEdit.Command, MF_BYCOMMAND or MF_GRAYED);
 DrawMenuBar(Form1.Handle);
end;

注：Delphi 高版本中已经修正这个问题。