Прозрачная форма в FireMonkey с книгой стилей

Question

У меня есть приложение с несколькими книгами стилей, содержащими стили от delphistyles.com.Я хочу добавить трекбар, чтобы позволить пользователю изменять прозрачность формы во время выполнения, как это можно сделать в VCL с помощью alphablend.

Этот пост: AlphaBlend в FireMonkey говорит следующее:

Чтобы сделать фон формы полупрозрачным, необходимо установить для свойства прозрачности формы значение true и использовать Fill.Color с альфа-значением, например $ AAFFFFFF (с Fill.Kind = bkSolid).в этом случае граница формы становится невидимой (по крайней мере, в Delphi XE2)

Но как этого добиться, если в моей форме есть книга стилей?

Answer 1

Другое дело, когда основная форма прозрачна, как я могу создать заголовок для пользователя, чтобы перетаскивать форму?

Я использую свой собственный класс TWindowMove для перемещения форм без заголовка. То небольшой демонстрационный проект

Answer 2

1. Установите для TForm.Transparency значение True
2. Поместите TPanel в форму с Align = Content
3. Используйте TPanel в качестве администратора для всех элементов управления
4. Используйте TPanel.Непрозрачность для прозрачности