Установка свойств в потомках класса

← →
Андр (2002-05-22 12:46) [0]

Уважаемый народ! Вот такая проблемка. Нужно чтобы у всех наследников класса во всех компонентах, имеющих,к примеру caption , в нём прописывалось caption:="My"+caption. Зараннее спасибо.

← →
Song © (2002-05-22 12:55) [1]

Компоненты-то какие? design-time или run-time?

← →
Андр (2002-05-22 13:18) [2]

Прошивать нужно жестко,но чтобы в design тоже было видно.Спасибо.

Завести private-переменную FMyCaption, в конструкторе присвоить ей зн-е "My", а в виртуальной ф-и GetCaption написать RESULT := FMyCaption + FCaption; ну или что-то типа этого, надо посмотреть как реализованиа эта ф-я в классе-родителе. А вот если она там НЕ виртуальная или private - то НИКАК. Либо переписывать родителя, либо объявлять другое св-во, либо переписать св-во с тем же именем, но подставить туда свою ф-ю. Иного не дано...

Установка свойств в потомках класса Найти похожие ветки