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

Posted by maloy under Delphi, Архив

zver777

Как сделать чтобы на кнопке было написано не button1, а

b
u
t
t
o
n
1
Или подскажите другой компонент.

SERG1980

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

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);

 


 

и т.п. и т.д.

тема на форуме от 2009 года

Похожие статьи

• Переход по ссылке при клике на кнопку, счётчик кликов по кнопке и число переходов по ссылке на ява скрипт
• Выдвижное меню
• Кнопка «Удаление» не срабатывает
• Обработка нажатия кнопки
• Нажатие правой кнопкой по ветке treeview
• Движение изображение из точки А в точку В
• Включить button при вводе данных в edit
• Как сделать многоуровневое меню кнопок?
• Изменение цвета label при нажатии кнопки
• Перемещение курсора на кнопку