TStyleBook Как использовать один экземпляр TStyleBook для нескольких форм?

[7profy]

Возможно ли создать один экземпляр TStyleBook и использовать его для всех форм приложения (в т.ч. динамически создаваемых, диалогов и т.д.)

[Brovin Yaroslav]

Можно с использованием дата модуля.

 

Делаем так:

1. Создаем в проекте TDataModule File->New->Other->DelphiFiles->Data Module.

2. Кидаем на дата модуль стиль бук TStyleBook и загружаем туда нужный стиль:

3. Открываем остальные формы, и в interface секции модуля в uses добавляем наш дата модуль.

4. Указываем в свойстве формы

StyleBook = DataModuleStyle.StyleBook1

Обратите внимание, если вы не подключите в uses дата модуль, то в выпадающем списке не будет варианта указать стильбук с дата модуля.

5. Меняем порядок создания форм. Дата модуль со стилем обязательно должен создаваться раньше мест использования.

 

P.S. В дизайнере стилей в дата модуле не доступны контролы FireMonkey, поэтому для создания стиля используйте дизайнер стилей на обычной форме, затем сохраните ваш стиль в файл и загрузите его в стиль бук в дата модуле.

[7profy]

Спасибо. Работает.

Есть только один нюанс. При размещении на датамодуле в TStyleBook невозможно добавлять графические элементы, т.к. ToolPalette работает в режиме для DataModule, т.е. без графических элементов.

[Brovin Yaroslav]

Есть такое дело.

 

Поэтому как временное решение:

1. Используете дизайнер стилей на обычной форме
2. Потом сохраняете готовый стиль в файл
3. Загружается стиль из файла в TStyleBook в дата модуле.