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

Question

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

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

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

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

Answer 1

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

Answer 2

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

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