Вертикальная надпись на кнопке

[zver777]

Как сделать чтобы на кнопке было написано не button1,а
b
u
t
t
o
n
1
Или подскажите другой компонент.

[SERG1980]

В наборе компонентов от LMD есть, TLMDButton называется

[Toxa]

button.wordwrap:=true;
и сделай ширину кнопки поуже
ну или поизвращайся с пробелами если кнопка не должна быть узкой

[SERG1980]

button.wordwrap:=true;

procedure TForm1.FormCreate(Sender: TObject);
begin
button1.Caption:='b'+#10#13+'u'+#10#13+'t'+#10#13+'t'+#10#13+'o'+#10#13+'n';
end;

[Alex Cones]

Возьмем на вооружение сообщение от SERG1980 и напишем простую процедуру для перевода строки в вертикаль, что бы не надрываться с частым написанием #10#13:

Procedure VerticalString(S:String);
 Var
  I:Integer;
  S2:String;
 Begin
  S2:='';
  For I:=0 to Length(S) do
   Begin
    If I<>Length(S) Then S2:=S2+S[I]+#10+#13 Else S2:=S2+S[I];
   End;
  S:=S2;
 End;

Тперь, что бы вызвать вертикальную строку, необходимо ввести:

Button1.Caption:=VerticalString('Button1');

Memo1.Text:=VerticalString(Memo1.Text);

и т.п. и т.д.