TMenuActionLink

type TMenuActionLink = class(TActionLink)

protected

  FClient: TMenuItem;

FClient - local variable holding the MenuItem to which this action link applies

  procedure AssignClient(); override;

  function IsAutoCheckLinked; virtual;

IsAutoCheckLinked - returns True if the client's AutoCheck property is linked

  function IsOnExecuteLinked; override;

  procedure SetAutoCheck(); override;

SetAutoCheck - specifies whether AutoCheck is to apply

  procedure SetCaption(); override;

SetCaption - specifies the caption for the linked MenuItem

  procedure SetChecked(); override;

SetChecked - specifies whether the Item is checked

  procedure SetEnabled(); override;

SetEnabled - specifies whether the action is enabled

  procedure SetHelpContext(); override;

SetHelpContext - specifies the Help context

  procedure SetHint(); override;

SetHint - specifies the Hint string

  procedure SetImageIndex(); override;

SetImageIndex - specifies the index of the associated image

  procedure SetShortCut(); override;

SetShortCut - specifies the ShortCut for the Item and action

  procedure SetVisible(); override;

SetVisible - specifies if item is to be visible

  procedure SetOnExecute(); override;

public

  function IsCaptionLinked; override;

Is the action's Caption linked to the client?

  function IsCheckedLinked; override;

Is the action's Checked property linked to the client?

  function IsEnabledLinked; override;

Is the action's Enabled property linked to the client?

  function IsHelpContextLinked; override;

Is the action's HelpContext property linked to the client?

  function IsHintLinked; override;

Is the action's Hint property linked to the client?

  function IsGroupIndexLinked; override;

Is the action's GroupIndex property linked to the client?

  function IsImageIndexLinked; override;

Is the action's ImageIndex property linked to the client?

  function IsShortCutLinked; override;

Is the action's ShortCut property linked to the client?

  function IsVisibleLinked; override;

Is the action's Visible property linked to the client?

end;

TMenuActionLink

TMenuActionLink: defines the link between a selected menu item and its corresponding action

TActionLink

A link between an action and a client class

TBasicActionLink

TObject