Foros Club Delphi - texto en vertical sobre un boton

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - texto en vertical sobre un boton (https://www.clubdelphi.com/foros/showthread.php?t=63117)

texto en vertical sobre un boton

:eek:alguien podria decirme como puedo escribir un texto en un boton en forma vertical....gracias....:confused::confused::confused::confused:

Tal vez con un derivado de TButton.
Yo probaría con el método:

Código Delphi [-]procedure WMEraseBkgnd(var Message: TWMEraseBkgnd); message WM_ERASEBKGND;

A partir de ahí deberás crear tú el texto vertical en el componente.

Cita:

:eek:alguien podria decirme como puedo escribir un texto en un boton en forma vertical....gracias....:confused::confused::confused::confused:

Has lo siguiente:
Pone la propiedad WordWrap del boton a true;
Ahora tan solo con el mause redimensionas el boton para que sea largo verticalmente de manera que en su anchura (Width) solo pueda caber una letra.
Lo unico malo de esto es que tu boton quedaria como un palito largo verticalmente, pero puedes probar cambiando el tamaño de la fuente para que las letras sean mas ancha y asi tu boton sea un poco anchito.;)
Pruebalo.... :cool:

Código Delphi [-]procedure TForm1.FormCreate(Sender: TObject);
begin
 Button1.Font.Handle := CreateFont(-11, 0, 900, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 'Tahoma');
end;