Cita:
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.