TCustomActionList

type TCustomActionList = class(TLCLComponent)

protected

  procedure AddAction(); virtual;

  procedure RemoveAction(); virtual;

  procedure Change; virtual;

  procedure GetChildren(); override;

  procedure Notification(); override;

  procedure SetChildOrder(); override;

  procedure SetImages(); virtual;

  property OnChange: TNotifyEvent; [rw]

  property OnExecute: TActionEvent; [rw]

  property OnUpdate: TActionEvent; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

  function ActionByName();

  function ExecuteAction(); override;

  function GetEnumerator;

  function IndexOfName();

  function IsShortCut();

  function UpdateAction(); override;

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

  property ActionCount: Integer; [r]

  property Images: TCustomImageList; [rw]

  property State: TActionListState; [rw]

end;

TCustomActionList

TLCLComponent

TObject