1

我有一个包含来自 delphistyles.com 的样式的多个样式书的应用程序。我想添加一个跟踪栏，以允许用户在运行时更改表单的透明度，就像在 VCL 中使用 alphablend 所做的那样。

这篇文章：FireMonkey 中的 AlphaBlend 说：

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

但是当我的表单有一个样式书时，我怎么能做到这一点呢？

4

2 回答 2

4
  1. 将 TForm.Transparency 设置为 True
  2. 使用 Align = Content 将 TPanel 放在表单上
  3. 将您的 TPanel 用作所有控件的容器
  4. 使用 TPanel.Opacity 获得透明度
于 2018-05-30T07:20:26.590 回答
-1

另一件事是当主表单是透明的时，我该如何为用户制作一个标题栏来拖动表单？

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

于 2018-06-05T21:16:18.630 回答