FireMonkey带StyleBook时如何通过TrackBar实现窗体动态透明？

我之前在Delphi XE2里用第三方StyleBook做FireMonkey应用时，也遇到过一模一样的问题——直接改窗体Fill属性会丢边框。核心原因是StyleBook已经替你定义了窗体的完整视觉结构（包括边框和背景），直接修改窗体的Fill会覆盖样式里的布局逻辑，导致边框元素失效。下面是亲测有效的解决方案：

核心思路 #

不要直接修改窗体的Fill属性，而是修改StyleBook中窗体样式里负责背景填充的控件的Alpha值，这样既不会破坏样式定义的边框，又能实现整体透明度的调整。

具体步骤 #

1. 基础设置：确保窗体的Transparency属性设为True，这是FireMonkey实现透明效果的前提。
2. 定位样式中的背景控件：打开你的StyleBook，找到对应窗体的样式（通常命名为TFormStyle或类似），展开它的ObjectLookup节点，找到负责背景填充的控件——一般是TRectangle，名字可能是FormBackground、Background之类的，你可以通过预览样式确认哪个是背景元素。
3. 关联TrackBar控件：在窗体上添加TTrackBar，设置它的Min为0，Max为255（对应Alpha通道的0-完全透明到255-完全不透明）。
4. 编写TrackBar的OnChange事件代码：

procedure TYourForm.TrackBar1Change(Sender: TObject);
var
  LBackgroundRect: TRectangle;
  LCurrentColor: TAlphaColor;
begin
  // 从StyleBook的样式中查找背景Rectangle
  if StyleBook1.Style.GetObject('FormBackground', LBackgroundRect) then
  begin
    // 获取当前背景色，修改Alpha通道值
    LCurrentColor := LBackgroundRect.Fill.Color;
    LCurrentColor := SetAlpha(LCurrentColor, TrackBar1.Value);
    LBackgroundRect.Fill.Color := LCurrentColor;
  end;
end;

5. 初始化TrackBar值（可选）：在窗体创建时，把TrackBar的初始值设为当前背景的Alpha值，避免打开窗体时透明度突变：

procedure TYourForm.FormCreate(Sender: TObject);
var
  LBackgroundRect: TRectangle;
begin
  if StyleBook1.Style.GetObject('FormBackground', LBackgroundRect) then
  begin
    TrackBar1.Value := GetAlpha(LBackgroundRect.Fill.Color);
  end;
end;

注意事项 #

• 如果你的StyleBook里的窗体背景不是TRectangle，而是TPanel或其他容器控件，只需要把代码中的TRectangle换成对应的控件类型，核心是修改它的Fill.Color的Alpha值。
• 要确保窗体的StyleBook属性已经关联到你的StyleBook组件（Form.StyleBook := StyleBook1），否则GetObject方法找不到对应的控件。
• 在XE2中，部分第三方Style可能会把背景和边框合并成一个控件，这种情况下你需要确认样式结构，找到正确的可修改Alpha的元素。

内容的提问来源于stack exchange，提问作者Adriaan