Delphi 使用 TActionList

在 Form 上放入 TMemo, TToolBar, TActionList, TImageList
設定屬性 ToolBar1.Images := ImageList1
設定屬性 ActionList1.Images := ImageList1
Double Click ActionList1 開啟 Editing 對話框
在 Editing 中按 New Standard Action...【Ctrl+Ins】 來開啟 Standard Action Classes 對話框
選擇所有 Edit 分類中的 class (TEditCut, TEditCopy, TEditPaste...) ，按 ok 加入這些 Action
在 ToolBar1 上按右鍵加入五個 TToolButton
在 ToolBar1 中
設定屬性 ToolButton1.Action := EditCut1
設定屬性 ToolButton2.Action := EditCopy1
設定屬性 ToolButton3.Action := EditPaste1
設定屬性 ToolButton4.Action := EditUndo1
設定屬性 ToolButton5.Action := EditDelete1

執行程式後 ToolBar1 上的 Button 就會依照目前 focus 的元件來運作(Copy, Paste...)
不可用的 Button 會變成灰色