Скачать: CL | DM;

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

← →
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?

---

← →
Anatoly Podgoretsky ©   (2002-04-16 20:04) [13]

Странно, насчет редактора знаешь, а основы нет.
Директива 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

---

← →
Anatoly Podgoretsky ©   (2002-04-16 20:54) [15]

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

---

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

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

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.008 c