Кнопка с многострочной надписью...

← →
Vint (2002-04-15 21:35) [0]

У кого-нибудь есть такой компонент?

← →
DeMoN-777 © (2002-04-15 21:41) [1]

Сам напиши ;)
А если не как то www.torry.net

← →
Anatoly Podgoretsky © (2002-04-15 22:14) [2]

TButton

← →
Vint (2002-04-15 22:43) [3]

Anatoly Podgoretsky
TButton однострочный, а мне нужно многострочный.

← →
Anatoly Podgoretsky © (2002-04-15 23:00) [4]

Извиняюсь, не TButton, а TBitbtn

← →
Vint (2002-04-15 23:26) [5]

Anatoly Podgoretsky, спасибо. И правда многострочный.
Только вот я пытался понять как это сделано, так и не понял. Может быть кто-нибудь знает?

← →
Aleks1 (2002-04-16 03:02) [6]

Еще один вариант - это использование TPanel, в качестве кнопки.

← →
Игорь Шевченко © (2002-04-16 10:00) [7]

День добрый,

BitBtn1.Caption := "Многострочная"#13#10"кнопка"

Тоже самое можно в design-time по Alt+F12

С уважением,

← →
Толик © (2002-04-16 10:01) [8]

to Anatoly Podgoretsky ©:

TButton кстати тоже умеет быть многострочным:
SetWindowLong(Button2.Handle, GWL_STYLE, GetWindowLong(Button2.Handle, GWL_STYLE) or BS_MULTILINE);
Просто ему надо объяснить, что он д.б. многострочным и всё...

to Aleks1:
Sorry, но это изврат, IMHO.

← →
Vint (2002-04-16 19:11) [9]

Толик,
Вот супер!!! Я предполагал что должно что-то быть.
Скажите, а как это оформить в компоненте? ытался вставить в cinstructor, но что именно нужно вставить, ведь объекта Button ещё нет...

← →
Vint (2002-04-16 19:20) [10]

В смысле я хочу написать свой TButton с поддержкой многострочной надписи.

← →
Anatoly Podgoretsky © (2002-04-16 19:33) [11]

В наследник перекрыть метод CreateParams, но тебе нужен еще и редактор свойства

← →
Vint (2002-04-16 19:58) [12]

Вот редактор свойств я знаю как написать, а как перекрыть метод CreateParams?

Странно, насчет редактора знаешь, а основы нет.
Директива override

← →
Vint (2002-04-16 20:41) [14]

Спасибо.
Вот что я сделал:
procedure CreateParams(var Params: TCreateParams); override; ... procedure TMultiLineBtn.CreateParams(var Params: TCreateParams); begin inherited; Params.Style := Params.Style or BS_MULTILINE; end;

Скажите это правильно, меня интерисует Params.Style

Внешне нормально, но проще же проверить
Возможно надо не Params.Style а просто Style или ExStyle
Проверь экспериментально

← →
Vint (2002-04-16 21:10) [16]

Да экспериментально вроде работает.
В общем спасибо огромное всем за советы.

← →
harismatik (2002-04-23 13:12) [17]

У меня есть комплект из 3 компонентов. Все они мультилинейные. Думаю будут полезны народу. Называются они TSMMultiButton, TSMMultiCheckBox и TSMMultiRadioButton или что то в этом роде.

Кнопка с многострочной надписью... Найти похожие ветки