Button or BitBtn

← →
john_mag © (2005-09-14 12:19) [0]

Доброго времени суток! Подскажите пожалуйста, возможно ли на Button or BitBtn написать названия в две или более строчек?

← →
KapitAl © (2005-09-14 12:54) [1]

У TButton есть свойство WordWrap,если установить его в True, то если текст Caption не убирается по ширине он переносится на следующую строчку. Для TBitBtn эта фишка не работает.

← →
Игорь Шевченко © (2005-09-14 13:04) [2]

procedure TForm1.FormCreate(Sender: TObject); begin SetWindowLong(Button1.Handle, GWL_STYLE, GetWindowLong(Button1.Handle, GWL_STYLE) or BS_MULTILINE); Button1.Caption := "Press"#13#10"Me"; end;

← →
john_mag © (2005-09-14 13:19) [3]

Огромное спасибо >Игорь Шевченко © (14.09.05 13:04) [2]
>KapitAl © (14.09.05 12:54) [1]
а WordWrap это в runtime? или в самом коде прописывать надо? тк в runtime что-то не нашёл этого св-ва (у мя D6)

> john_mag © (14.09.05 13:19) [3]

> в runtime что-то не нашёл этого св-ва (у мя D6)

Если не ошибаюсь, у кнопок оно только в D7 появилось.

Но работает оно тоже по принципу [2] (добавление стиля BS_MULTILINE), конечно же.

Button or BitBtn Найти похожие ветки