这段代码是DELPHI7自带的一个例子,但是这段代码只能禁用主菜单,如果我用这段代码来禁用子菜单的话就会出错
\Borland\Delphi7\Demos\ActionBands\DynaActionBands
菜单结构如下:
test     <----主菜单    以下代码可成功禁用主菜单
|
|___  File    <----子菜单    以下代码禁用子菜单出错
|___  Close   <----子菜单procedure TForm1.DisableBtnClick(Sender: TObject);
var
  Item: TActionClientItem;
begin
  Item := ActionManager1.FindItemByCaption('&test');
  if Assigned(Item) then
    Item.Control.Enabled := not Item.Control.Enabled;
end;请高手指点.