Caption de Label en varias filas

[Novatin]

Hola amigos,

Tengo un TButton con un caption así "NUNCA ES TARDE", y me gustaria saber si es posible cambiar el caption a:

"NUNCA
ES
TARDE"

Es decir en 3 lineas...

Si es posible de hacerlo estare muy agradecido

[[FGarcia]]

Hola:

Por codigo en el evento OnCreate del form:

Código Delphi [-]
Button1.Caption := 'NUNCA ' + #10#13 + 'ES ' + #10#13 + 'TARDE';

Saludos!

Edito No me di cuenta que es el foro de C++ Builder pero pruebalo o tal vez algo similar

[[escafandra]]

   SetWindowLong(Button1->Handle, GWL_STYLE, GetWindowLong(Button1->Handle, GWL_STYLE) | BS_MULTILINE);
   Button1->Caption = "Nunca\res\rtarde";

Saludos.

[ecfisa]

Hola.

Agregando algo a lo que bién sugirió escafandra, si deseas aplicarlo a todos los botones de un mismo contenedor:

 
void WordWrapButtons(TWinControl* aParent)
{
  for(int i=0; i < aParent->ControlCount; i++)
    if(aParent->Controls[i]->ClassNameIs("TButton")) {
      TButton *b = static_cast<TButton*>(aParent->Controls[i]);
      SetWindowLong(b->Handle,
                    GWL_STYLE,
                    GetWindowLong(b->Handle, GWL_STYLE) | BS_MULTILINE);
      b->Refresh();
    }
}

Ejemplo de llamadas:

   ...
   WordWrapButtons(Form1);
   WordWrapButtons(Panel1);
   ...

Saludos

[[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 !!!

[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