TAction.Caption in Speedbutton deaktivieren

[Uwe Raabe]

Überall wo die Caption nicht übernommen werden soll, diese Unit in die interface-uses-clause mit aufnehmen:

Delphi-Quellcode:

unit NoCaptionSpeedButtons;

interface

uses
  Vcl.Controls, Vcl.Buttons;

type
  TSpeedButton = class(Vcl.Buttons.TSpeedButton)
  protected
    function GetActionLinkClass: TControlActionLinkClass; override;
  end;

  TNoCaptionSpeedButtonActionLink = class(Vcl.Buttons.TSpeedButtonActionLink)
  protected
    function IsCaptionLinked: Boolean; override;
  end;

implementation

function TSpeedButton.GetActionLinkClass: TControlActionLinkClass;
begin
  Result := TNoCaptionSpeedButtonActionLink;
end;

function TNoCaptionSpeedButtonActionLink.IsCaptionLinked: Boolean;
begin
  result := false;
end;

end.