描述
窗体上需要放置一个TPopupActionBar组件。下面的代码会创建一个动作管理器组件（action manager component），并为其某些属性分配一个图像列表。然后，把菜单并将其分配给窗体的PopupMenu属性。这时，右键单击窗体就会显示弹出菜单。
代码
procedure TForm1.FormCreate(Sender: TObject);
var
Images: TImageList;
Image: TBitmap;
ActionManager: TActionManager;
Option1, Option2: TMenuItem;
begin
// 显示一个信息
ShowMessage('窗体上右键单击可以显示自定义菜单');
// 创建一个图像列表
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;
// 创建一个动作管理器，并将图像列表进行属性指定
ActionManager := TActionManager.Create(self);
ActionManager.DisabledImages := Images;
ActionManager.LargeDisabledImages := Images;
ActionManager.LargeImages := Images;
// 添加一些菜单项
Option1:= TMenuItem.Create(self);
Option1.Caption := 'New';
PopupActionBar1.Items.Add(Option1);
Option2:= TMenuItem.Create(self);
Option2.Caption := 'Save';
PopupActionBar1.Items.Add(Option2);
//让弹出菜单成为窗体的弹出菜单
Form1.PopupMenu := PopupActionBar1;
end;