0

在Delphi -> Help -> Table Of Content -> Code Example -> Delphi -> ActnMgrBar, 有教程 regd Action Manager 组件。任何人都可以在帮助中检索本教程并查看。

说明：此应用程序要求表单上已有一个 TPopupActionBar 组件。应用程序创建一个动作管理器组件并将一个图像列表分配给它的一些属性。然后，自定义弹出操作栏并将其分配给表单的 PopupMenu 属性。右键单击表单以显示弹出菜单。

procedure TForm1.FormCreate(Sender: TObject);
var
  Images: TImageList;
  Image: TBitmap;
  ActionManager: TActionManager;  
  Option1, Option2: TMenuItem;
begin
  // display an information message
  ShowMessage('Right click the form to display the customized popup menu');
  // create an image list
  Images := TImageList.Create(self);
  Images.Height := 32;
  Images.Width := 32;
  try
    Image := TBitmap.Create;
    Image.Height := 32;
    Image.Width := 32;
    Image.Canvas.Font.Name := 'Times New Roman';
    Image.Canvas.Font.Size := 22;
    Image.Canvas.TextOut((Image.Width - Image.Canvas.TextWidth('1')) div 2, 0, '1');
    Images.Add(Image, nil);
  finally
    Image.Free;
  end;
  // create an action manager and assign the image list to some of its properties
  ActionManager := TActionManager.Create(self);  
  ActionManager.DisabledImages := Images;  
  ActionManager.LargeDisabledImages  := Images;  
  ActionManager.LargeImages := Images;
  // add some items to the popup menu associated with the popup action bar
  Option1:= TMenuItem.Create(self);
  Option1.Caption := 'New';
  PopupActionBar1.Items.Add(Option1);
  Option2:= TMenuItem.Create(self);
  Option2.Caption := 'Save';
  PopupActionBar1.Items.Add(Option2);
  // let the popup action bar be the form's popup menu
  Form1.PopupMenu := PopupActionBar1;
end;

我收到以下错误：

Undeclared Identifier : TActionManager

这种类型的未声明标识符错误我经常在我的 Delphi（之前我得到与 相同类型的错误TAniIndicator）在源代码中声明组件时保持安静。在上述情况下，如果我手动输入TActionManager表单，那么代码就可以工作。有人告诉我在我的 HP PC 上安装或配置 Delphi 一定有错误。

4

1 回答 1

6

当您TActionManager在设计时将 a 放到 Form 上时，IDE 会自动将必要的ActnMan单元引用插入到 Form 单元的uses子句中。该示例显然没有该引用，因此错误。因此，只需手动将ActnMan单位添加到您的uses子句中。

于 2013-07-25T19:23:27.930 回答