¿Cómo hago para que la propiedad Caption de un botón tenga múltiples líneas?

[[seoane]]

Si no tienes la propiedad WordWrap en tu versión de delphi, podemos intentar un apaño. En la unit de tu formulario coloca esto, justo antes de la definición del formulario:

Código Delphi [-]
TButton = class(StdCtrls.TButton)
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;

El procedure CreateParams tendría este aspecto:

Código Delphi [-]
procedure TButton.CreateParams(var Params: TCreateParams);
begin
  inherited;
  if Tag = 32 then
    Params.Style := Params.Style or $2000;
end;

Es decir la cosa nos quedaría mas o menos así:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TButton = class(StdCtrls.TButton)
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;

  TForm1 = class(TForm)
    Button1: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TButton }

procedure TButton.CreateParams(var Params: TCreateParams);
begin
  inherited;
  if Tag = 32 then
    Params.Style := Params.Style or $2000;
end;

end.

Ahora en los botones que quieras tener mas de una linea, coloca la propiedad Tag = 32