TContainedActionList

type TContainedActionList = class(TComponent)

protected

  procedure SetActionIndex();

  procedure AddAction();

  procedure RemoveAction();

  procedure Change; virtual;

  procedure Notification(); override;

  procedure SetChildOrder(); override;

  procedure SetState(); virtual;

  procedure GetActionsInCategory();

  function SameCategory();

  function Suspended;

  property OnChange: TNotifyEvent; [rw]

  property OnExecute: TActionEvent; [rw]

  property OnUpdate: TActionEvent; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

  function IndexOfAction();

  function ExecuteAction(); override;

  procedure GetChildren(); override;

  function GetEnumerator;

  function UpdateAction(); override;

  function EnumByCategory();

  property Actions []: TContainedAction; default; [rw]

  property ActionCount: Integer; [r]

  property State: TActionListState; [rw]

  property OnStateChange: TNotifyEvent; [rw]

end;

TContainedActionList

TObject