Как сохранить настройки дизайна формы?

Question

В потомке TForm с несколькими уровнями наследования.

... TForm -> TForm1 -> TForm2 -> TForm3

Каждый уровень от дизайнера DFM изменяет Caption формы (то есть: 'A' для TForm1, ' B 'для TForm2 и' C 'для TForm3).

Во время выполнения для формы TForm3 я хотел бы сохранить начальное значение Caption (' C ') в поле приватной формы (т.е.: FInitialCaption : string). Я подумал использовать процедуру Loaded, но в документации говорится:

Предупреждение: Loaded может вызываться несколько раз на унаследованных формах. Он вызывается каждый раз, когда передается уровень наследования. Не выделяйте память в переопределенном методе Loaded , не проверив сначала, что память не была выделена при предыдущем вызове.

В этом примере, я уверен, что это не вызовет каких-либо заметных проблем, но мне интересно, какое место лучше всего раз и навсегда реагировать на настройки DFM, избегая бесполезного выполнения кода?

Answer 1

Захватите это в переопределенном конструкторе или обработчике события OnCreate.

Лично я бы использовал конструктор для этого, так как не вижу особой точки для событий OnCreate и OnDestroy.