Ver Mensaje Individual
  #7  
Antiguo 25-05-2007
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Reputación: 24
seoane Va por buen camino
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
Responder Con Cita