TControlActionLink

type TControlActionLink = class(TActionLink)

protected

  FClient: TControl;

The client control that is linked to the action.

  procedure AssignClient(); override;

Called during construction, sets FClient to the given control.

  procedure SetCaption(); override;

Sets the client Caption when it is linked to the Action for the control.

  procedure SetEnabled(); override;

Sets the client Enabled property when it is linked to the action.

  procedure SetHint(); override;

Sets client Hint when it is linked to the action.

  procedure SetHelpContext(); override;

Sets the HelpContext, if the old Help properties match (IsHelpLinked).

  procedure SetHelpKeyword(); override;

Sets the HelpKeyword, if the old Help properties match (IsHelpLinked).

  procedure SetHelpType(); override;

Sets the HelpType, if the old Help properties match (IsHelpLinked).

  procedure SetVisible(); override;

Sets the Visible property in the client, if the old values match.

  procedure SetOnExecute(); override;

Set OnClick handler for the client, if the old values match.

  function IsOnExecuteLinked; override;

True if the OnClick handler in the client is the same routine assigned to the OnExecute handler in the action.

  function DoShowHint(); virtual;

Formats the hint string for the client control when it includes a ShortCut or accelerator key.

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;

Help properties are assumed linked only when all these properties match.

  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

Links an Action to a control.

TActionLink

A link between an action and a client class.

TBasicActionLink

TObject