Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.06;
Скачать: 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 вся ветка

Текущий архив: 2002.05.06;
Скачать: CL | DM;

Наверх




Память: 0.5 MB
Время: 0.012 c
1-17612
DikobraZ
2002-04-22 16:27
2002.05.06
Как реализоваить смайлы в чате?


1-17562
Vint
2002-04-17 22:10
2002.05.06
Редактор компонент...


1-17594
Varg
2002-04-22 16:09
2002.05.06
Как эмулировать окончание сеанса Windows?


3-17504
gads
2002-04-12 19:41
2002.05.06
не могу посмотреть все записи в таблице


1-17631
agrig
2002-04-21 19:43
2002.05.06
TCheckBox - как програмно поменять Checked, чтобы не произошло ..