在设计期间,双击TActionList,增加TAction 参考如下窗体代码(可以直接复制到窗体上)object ActionList1: TActionList Left = 72 Top = 32 object Action1: TAction Caption = 'Action1' OnExecute = Action1Execute end end object PopupMenu1: TPopupMenu Left = 40 Top = 32 object Action11: TMenuItem Action = Action1 end end
参考如下窗体代码(可以直接复制到窗体上)object ActionList1: TActionList
Left = 72
Top = 32
object Action1: TAction
Caption = 'Action1'
OnExecute = Action1Execute
end
end
object PopupMenu1: TPopupMenu
Left = 40
Top = 32
object Action11: TMenuItem
Action = Action1
end
end