Caption de Label en varias filas

[ecfisa]

Empezado por FGarcia

¿¡¡Todo eso para el caption de un Button!!?

Ahora entiendo el porque de la repulsión de Al Gonzalez a C, C++ y demas engendros !!!

Bueno, en realidad tratándose de Delphi y C++ Builder se necesita un código de complejidad similar para lograrlo.

En Delphi para un TButton:

Código Delphi [-]
begin
  SetWindowLong(Button1.Handle,
                GWL_STYLE,
                GetWindowLong(Button1.Handle, GWL_STYLE) or BS_MULTILINE);
  Button1.Caption := 'Nunca ' + #10#13 + 'es ' + #10#13 + 'tarde';
end;

Y el código para todos los TButton residentes en un mismo contenedor, sería:

Código Delphi [-]
procedure WordWrapButtons(aParent: TWinControl);
var
  i: Integer;
  b: TButton;
begin
  for i :=0 to aParent.ControlCount - 1 do
    if aParent.Controls[i] is TButton then
    begin
      b := TButton(aParent.Controls[i]);
      SetWindowLong(b.Handle,
                    GWL_STYLE,
                    GetWindowLong(b.Handle, GWL_STYLE) or BS_MULTILINE);
      b.Refresh;
    end;
end;

Saludos.

[Novatin]

Gracias a todos...

Ya pude hacer lo que queria... igual que FGarcia, pense que iba a ser algo mas fácil como en VB6 "vbcrfl"... aunque ahora que aprendi un poco más de builder se me hará dificil aprender otros lenguajes (por el cariño que le voy tomando )... Pero A veces me pregunto ya pa que ir a clases... si al final tenes tantos buenos profesores en clubdelphi ...

Un Saludo