TEdit с правым выравниванием

← →
MsGuns © (2011-07-08 16:07) [0]

Причем при попадании курсора в контрол текст должен выравниваться влево (для ввода/правки числовых данных)
Делал раньше (вроде через TInplaceEditor), но забыл :)
Как это можно cделать с наименьшими сложностями (мне вообще-то это в билдере надо, но из делфей как-нибудь перенесу с Божьей помощью)

Спасибо за помощь

← →
Palladin © (2011-07-08 16:11) [1]

Alignment?

← →
MsGuns © (2011-07-08 16:17) [2]

Нету у эдита такого св-ва
В нете нашел много чего, но все это как я в общем-то знал, т.е. через наследника TCustomEdit с перекрытием CreateParams.
Но, увы, вся штука в том, что эдитов в проекте стотыщпяцот и они выстроены достаточно сложно (шестиэтажные панели, групбоксы и т.д.) - короче динамически создавать и укладывать "мой" эдит вместо старых - это до Второго Пришествия.

← →
MsGuns © (2011-07-08 16:19) [3]

Было бы круто какнить унаследовать событие вроде repaint и туда вписать, а затем просто назначить обработчик всем эдитам (код небольшой - просто перебор в цикле ис проверкой тэгов, куда я всобачу признак "числового" эдита.
Как-то так в общем, но как сделать - не умею типа :)

← →
RWolf © (2011-07-08 16:29) [4]

GExperts, CnPack умеют заменять компоненты на форме.

← →
Palladin © (2011-07-08 16:38) [5]

а у TCustomEdit"а Alignment в protected есть?

> т.е. через наследника TCustomEdit с перекрытием CreateParams

назначить стиль ES_RIGHT, похоже, единственный нормальный способ
можно через SetWindowLong(GWL_STYLE) попробовать

> MsGuns © (08.07.11 16:19) [3]

http://www.delphipages.com/forum/showpost.php?s=1af96451f4b4564acd29a04a1921ba2c&p=77249&postcount=6

--
Regards, LVT.

Спасибо за ссылку, в понедельник посмотрю (сейчас не до грибов)

TEdit с правым выравниванием Найти похожие ветки