TFont в качестве property

← →
Sandman25 © (2004-07-15 12:04) [0]

В Component writer"s guide написано следующее:

Subcomponents can be any persistent object (any descendant of TPersistent). Unlike separate components that happen to be assigned as the value of a property, the published properties of subcomponents are saved with the component that creates them. In order for this to work, however, the following conditions must be met:

The Owner of the subcomponent must be the component that creates it and uses it as the value of a published property. For subcomponents that are descendants of TComponent, you can accomplish this by setting the Owner property of the subcomponent. For other subcomponents, you must override the GetOwner method of the persistent object so that it returns the creating component.

Но почему тогда при создании свойства типа TFont не нужно создавать его наследника с перекрытым GetOwner? Получается, что TFont.GetOwner вызывает TPersistent.GetOwner, возвращающий nil, и тем не менее, все равно в форме сохраняются свойства Font.Style и т.д.
Подозреваю, что дело в редакторе, который используется для редактирования свойств типа TFont. Попытался его найти через поиск ($Delphi)/Source по фразе RegisterPropertyEditor, но не получилось.

← →
Sandman25 © (2004-07-15 17:57) [1]

Удалено модератором
Примечание: Создание пустых сообщений

← →
Юрий Зотов © (2004-07-15 18:39) [2]

Потоковый механизм Delphi по умолчанию рассматривает объектные некомпонентские published-свойства, как ссылки на ВНУТРЕННИЕ объекты (например, Font), а компонентские - как ссылки на ВНЕШНИЕ компоненты (например, PopupMenu). Поэтому по умолчанию первые он пишет, а вторые - нет (считая, что Owner у них - форма и они и так будут сохранены вместе с ней).

Значит, TFont сохраняется по умолчанию, а вот чтобы сохранить ВНУТРЕННИЙ потомок TComponent нужно принимать дополнительные меры - о которых здесь и говорится.

Спасибо!

TFont в качестве property Найти похожие ветки