带有样式簿的 firemonkey 中的透明表单
Transparent Form in firemonkey with a stylebook
我有一个包含多个样式簿的应用程序，其中包含 delphistyles.com 中的样式。我想添加一个轨迹栏以允许用户在运行时更改表单的透明度，就像您在 VCL 中使用 alphableend 所做的那样。
这个 post: AlphaBlend in FireMonkey 表示如下：
To make your form background semitransparent you should set form Transparency property to true and use Fill.Color with alpha value like $AAFFFFFF(with Fill.Kind = bkSolid). in this case form border becomes invisible (at least in Delphi XE2)
但是当我的表单有样式簿时，我该如何实现呢？
- 将 TForm.Transparency 设为真
- 将 TPanel 放在窗体上，Align = Content
- 使用您的 TPanel 作为所有控件的容器
- 使用 TPanel.Opacity 实现透明度
Another thing is when the main form is transparent how can I go about making a titlebar for the user to drag the form?
我使用自己的 class TWindowMove 来移动没有标题栏的表单。 Thats 一个小型演示项目
我有一个包含多个样式簿的应用程序，其中包含 delphistyles.com 中的样式。我想添加一个轨迹栏以允许用户在运行时更改表单的透明度，就像您在 VCL 中使用 alphableend 所做的那样。
这个 post: AlphaBlend in FireMonkey 表示如下：
To make your form background semitransparent you should set form Transparency property to true and use Fill.Color with alpha value like $AAFFFFFF(with Fill.Kind = bkSolid). in this case form border becomes invisible (at least in Delphi XE2)
但是当我的表单有样式簿时，我该如何实现呢？
- 将 TForm.Transparency 设为真
- 将 TPanel 放在窗体上，Align = Content
- 使用您的 TPanel 作为所有控件的容器
- 使用 TPanel.Opacity 实现透明度
Another thing is when the main form is transparent how can I go about making a titlebar for the user to drag the form?
我使用自己的 class TWindowMove 来移动没有标题栏的表单。 Thats 一个小型演示项目