TJvOutlookBarButton

type TJvOutlookBarButton = class(TCollectionItem)

protected

  function GetDisplayName; override;

  function GetActionLinkClass; dynamic;

  function GetAction; virtual;

  procedure DoActionChange();

  procedure ActionChange(); dynamic;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Assign(); override;

  procedure Click; dynamic;

  procedure EditCaption;

  function GetOutlookBar;

  property LinkedObject: TObject; [rw]

published

  property Action: TBasicAction; [rw]

  property Caption: TCaption; [rw]

  property ImageIndex: TImageIndex; [rw]

  property Tag: NativeInt; [rw]

  property Down: Boolean; [rw]

  property AutoToggle: Boolean; [rw]

  property Enabled: Boolean; [rw]

  property OnClick: TNotifyEvent; [rw]

end;

TJvOutlookBarButton

TObject