Inno setup 在Inno设置的自定义页面上显示控件背后的背景

我已经创建了一个安装程序，我正在尝试为背景设置一个图像。但安装页面上的文本和进度条控件后面不显示背景，下面是它的外观：

这是我用来设置背景的代码：

ExtractTemporaryFile（'white.bmp'）；
InstallTypePage:=CreateInputOptionPage（wpSelectDir，
'', '',
“在白兰地拿督基地的“服务者”公寓里。”，
正确的，错误的）；
{添加白色背景}
BackImageW:=TBitmapImage.Create（WizardForm）；
BackImageW.Bitmap.LoadFromFile（ExpandConstant（{tmp}\white.bmp'）；
BackImageW.Top:=0；
BackImageW.Left:=0；
BackImageW.Parent:=InstallTypePage.Surface；
BackImageW.Align:=alCLient；
BackImageW.Stretch:=假；
{在页面上创建单选按钮}
InstallTypePageID:=InstallTypePage.ID；
InstallTypePage.Add（'Servidor'）；
InstallTypePage.Add（'Terminal'）；
InstallTypePage.Add（'Restablecer'）；
BackImageW:=TBitmapImage.Create（WizardForm）；
BackImageW.Bitmap.LoadFromFile（ExpandConstant（{tmp}\white.bmp'）；
BackImageW.Top:=0；
BackImageW.Left:=0；
BackImageW.Parent:=WizardForm.InstallingPage；
BackImageW.Align:=alCLient；
BackImageW.Stretch:=假；
WizardForm.ProgressGauge.Top:=WizardForm.InstallingPage.Height-ScaleY（40）；
WizardForm.ProgressGauge.Height:=ScaleY（8）；

TNewStaticText

不支持透明性。您可以将其替换为

TLabel

。看

但是您的问题不仅仅是

TNewStaticText

，还有

TNewCheckListBox

和其他控件。而

TNewCheckListBox

根本不支持透明度。你所能做的就是将背景设置为白色。如果您决定无论如何都要依赖这种方法，您可以对

TNewStaticText

和所有其他控件执行相同的操作

InstallTypePage.SubCaptionLabel.Color := clWhite;
InstallTypePage.CheckListBox.Color := clWhite;

---

但不能更改

TNewProgressBar

的颜色。您必须绘制一个自定义进度条。看

---

---

有一些支持主题的Inno设置克隆。这些可能支持这些控件的透明度。

对不起，在发布之前我没有在Windows 7中进行测试，我编辑了我的问题，我看到我的代码不起作用。再次抱歉，我现在编辑了。我想看看

如何在Inno安装程序中更改进度条的颜色？

，非常感谢Martin。

InstallTypePage.SubCaptionLabel.Color := clWhite;
InstallTypePage.CheckListBox.Color := clWhite;