TMenuActionLink

type TMenuActionLink = class(TActionLink)

protected

  FClient: TMenuItem;

  procedure AssignClient(); override;

  function IsAutoCheckLinked; virtual;

  function IsOnExecuteLinked; override;

  procedure SetAutoCheck(); override;

  procedure SetCaption(); override;

  procedure SetChecked(); override;

  procedure SetEnabled(); override;

  procedure SetHelpContext(); override;

  procedure SetHint(); override;

  procedure SetImageIndex(); override;

  procedure SetShortCut(); override;

  procedure SetVisible(); override;

  procedure SetOnExecute(); override;

public

  function IsCaptionLinked; override;

  function IsCheckedLinked; override;

  function IsEnabledLinked; override;

  function IsHelpContextLinked; override;

  function IsHintLinked; override;

  function IsGroupIndexLinked; override;

  function IsImageIndexLinked; override;

  function IsShortCutLinked; override;

  function IsVisibleLinked; override;

end;

TMenuActionLink

TActionLink

TObject