Кнопка с вертикальной надписью

[Скандербег]

Несколько переработанный код отображающий вертикальную надпись на кнопке, который можно вставить в событие OnClick кнопки на форме (не той с которой экспериментируем).

Не обратили внимание на это примечание?
В проекте нажатие на кнопку, на которой должна быть нарисована вертикальная надпись постоянно вызывает код перерисовки, а надо чтобы кнопка один раз была нарисована. Необходимо добавить еще одну кнопку, к событию OnClick которой привязать процедуру отрисовки вертикальной надписи на ДРУГОЙ кнопке. И все будет в порядке.

[Pirit]

Смысл в том что мне надо сделать именно компанент кнопка с верт надписью!
Я это теоретически представляю, как единственную кнопку, которую можно выташить на форму, и у нее уже будет перевернута надпись..

[Скандербег]

Мешать в кучу наш с вами эксперимент и создание компонента, скорее всего, не стоит.
Пример, как и было ранее сказано, это лишь демонстрация возможностей.
Если обратить внимание на строку кода "Caption := '';", то сразу станет понятным почему при втором нажатии на кнопку надпись исчезает - выполнение этого кода повторно приводит к тому, что переменная "S" становиться пустой (S := Caption; ), т.к. Caption к моменту второго запуска кода тоже пустая строка.

Предполагалось следующее: отработать на примере все детали построения такой кнопки используя пробный проект с дополнительной кнопкой, а уже после этого создавать свой компонент. Вы почему то решили объединить эти этапы, от чего и возникли проблемы.
Наш с вами пример никак не годится на роль самостоятельного компонента.

И еще. Вряд ли наша с вами переписка кому-либо еще интересна на форуме, поэтому предлагаю перенести дискуссию в электропочту (адрес в моем профиле есть).

[JTG]

Ммм, а если вот так

[DeKot]

Т.е. речь идет о том, что создаешь графический рисунок кнопки, на нем методом TextOut побуквенно вводишь текст по вертикали, оформляешь отдельной процедурой и получится новый компонент в пределах данной прогрпммы.

[DeKot]

Т.е. речь идет о том, что создаешь графический рисунок кнопки, на нем методом TextOut побуквенно вводишь текст по вертикали, оформляешь отдельной процедурой и получится новый компонент в пределах данной программы.
Сорри, повторно кликнул.Удалить не получается.

[Pirit]

2 Сканденберг:
Хорошо, переносим на почту, хотя в разговор включились!) Пример, который мы рассматривали, таким же образом должен перерасти в самостоятельный компанент?!

[Pirit]

Сообщение от JTG

Ммм, а если вот так

А есть код реализации компонента?! А то сдавать завтра..

[JTG]

WordWrap = True и заголовок вида 'Т'+#13#10+'Е'+#13#10+'К'+#13#10+'С '+#13#10+'Т'

Если надо именно отдельный компонент - то делай наследника TButton и переопределяй заголовок в методе CreateParams