See TzCustomFormDesigner.OnExecuteAction Event

THandleActionEvent = procedure (Sender: TObject; Action: TBasicAction; var Handled: Boolean) of object;