TControlActionLink

type TControlActionLink = class(TActionLink)

protected

  FClient: TControl;

Local variable that identifies the client control that is to be linked to the action

  procedure AssignClient(); override;

  procedure SetCaption(); override;

SetCaption - specifies the caption for the control

  procedure SetEnabled(); override;

SetEnabled - specifies whether or not the link is enabled

  procedure SetHint(); override;

SetHint - specifies the string to use for the hint

  procedure SetHelpContext(); override;

SetHelpContext - specifies the context-based help variable to use

  procedure SetHelpKeyword(); override;

SetHelpKeyword - specifies the help keyword

  procedure SetHelpType(); override;

SetHelpType - specifies the type of help to use

  procedure SetVisible(); override;

SetVisible - specifies the visiblity

  procedure SetOnExecute(); override;

SetOnExecute - specifies the Execute event handler

  function IsOnExecuteLinked; override;

IsOnExecuteLinked - returns True if the OnExecute event is linked

  function DoShowHint(); virtual;

DoShowHint - method to display hint; returns True if successful

public

  function IsCaptionLinked; override;

Is the action's Caption linked to the client?

  function IsEnabledLinked; override;

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

  function IsHelpLinked; override;

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

  function IsHintLinked; override;

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

  function IsVisibleLinked; override;

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

end;

TControlActionLink

TControlActionLink - links the current control to an action

TActionLink

A link between an action and a client class

TBasicActionLink

TObject