Firemonkey中的透明表单与样式簿

Question

我有一个包含delphistyles.com样式的多个样式的应用程序。我想添加一个轨迹栏，允许用户在运行时更改窗体的透明度，就像在VCL中使用alphablend一样。

这篇文章：AlphaBlend in FireMonkey说明如下：

  

要使表单背景为半透明，您应将表单Transparency属性设置为true，并使用Fill.Color和alpha值，如$ AAFFFFFF（使用Fill.Kind = bkSolid）。在这种情况下，表单边框变得不可见（至少在Delphi XE2中）

但是当我的表格有样书时，我该如何实现呢？

Answer 1

1. 将TForm.Transparency设置为True
2. 将TPanel放在包含Align = Content
的表单上
3. 使用您的TPanel作为所有控件的参赛者
4. 使用TPanel.Opacity进行透明度

Answer 2

  

另一件事是当主窗体是透明的时候，如何为用户拖动窗体制作标题栏？

我使用自己的类 TWindowMove 来移动没有标题栏的表单。 Thats一个小型演示项目