Добавил в проект фрейм TCustomTextFrame = class (TFrame). Визуальных контролов на него не ложил. Просто добавил нужные свойства, методы, объявил абстракные...
Добавить наследника TCustomTextFrame через File/Add New/Other/Inherited не получилось.
Добавил простой фрейм и вручную в коде поменял ему предка с TFrame на TCustomTextFrame
TframeTextsOffer = class(TCustomTextFrame)
Всё нормально подхватилось и заработало.
Самое интересно началось на следующий день - при открытии в дизайнтайме TframeTextsOffer вылетала ошибка, что нет такого свойства как ClientHeight. Компилялось молча, но при запуске приложения тоже ругалось на ClientHeight.
Оказалось что делфи почемуто добавляет внуку, так сказать, фрейма в *.dfm свойства ClientHeigh, ClientWidth и ещё кучу всякого. Но у фрейма такого нет. Вот и ругается.
Но простое удаление не дает результатов - делфи при открытии TframeTextsOffer в дизайнтайме упорно добавляет эти свойства, на которые потом сама же и ругается.
Помогло только изменение вручную в *.dfm object frameTextsOffer: TframeTextsOffer на inherited frameTextsOffer: TframeTextsOffer.
Не знаю насколько это правильно, но пока работает.
Добавить наследника TCustomTextFrame через File/Add New/Other/Inherited не получилось.
Добавил простой фрейм и вручную в коде поменял ему предка с TFrame на TCustomTextFrame
TframeTextsOffer = class(TCustomTextFrame)
Всё нормально подхватилось и заработало.
Самое интересно началось на следующий день - при открытии в дизайнтайме TframeTextsOffer вылетала ошибка, что нет такого свойства как ClientHeight. Компилялось молча, но при запуске приложения тоже ругалось на ClientHeight.
Оказалось что делфи почемуто добавляет внуку, так сказать, фрейма в *.dfm свойства ClientHeigh, ClientWidth и ещё кучу всякого. Но у фрейма такого нет. Вот и ругается.
Но простое удаление не дает результатов - делфи при открытии TframeTextsOffer в дизайнтайме упорно добавляет эти свойства, на которые потом сама же и ругается.
Помогло только изменение вручную в *.dfm object frameTextsOffer: TframeTextsOffer на inherited frameTextsOffer: TframeTextsOffer.
Не знаю насколько это правильно, но пока работает.
Комментариев нет:
Отправить комментарий