如何在Pascal脚本中修改Inno Setup的SelectDirBitmapImage？遇类型不匹配错误

错误根源 #

你遇到的「Type mismatch」类型不匹配错误，是因为**TBitmapImage的Parent属性要求赋值的是容器类控件（如TPanel这类TWinControl子类）**，但你代码里把WizardForm.SelectDirBitmapImage（本身就是TBitmapImage控件，不是容器）赋值给了BitmapImage.Parent，这就违反了类型要求。

修正方案 #

不需要新建TBitmapImage嵌套在原有控件里，直接修改原有控件的内容，或者把新控件挂到正确的父容器上，两种方案任选：

方案1：直接替换原有控件的图片（最简）

procedure LoadSelectDirAndGroupImages();
begin
  ExtractTemporaryFile('bitmap-test5.bmp');
  // 直接给原有SelectDirBitmapImage加载新图片
  WizardForm.SelectDirBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\bitmap-test5.bmp'));
  // 根据需求设置拉伸等属性
  WizardForm.SelectDirBitmapImage.Stretch := True;
  WizardForm.SelectDirBitmapImage.AutoSize := False;
end;

方案2：新建控件替换原有控件（适合需要完全替换的场景）

procedure LoadSelectDirAndGroupImages();
var
  BitmapImage: TBitmapImage;
begin
  ExtractTemporaryFile('bitmap-test5.bmp');
  // 先隐藏原有控件
  WizardForm.SelectDirBitmapImage.Visible := False;
  // 新建控件，父容器设为原有控件的父容器
  BitmapImage := TBitmapImage.Create(WizardForm);
  BitmapImage.Parent := WizardForm.SelectDirBitmapImage.Parent;
  // 继承原有控件的位置和尺寸
  BitmapImage.Left := WizardForm.SelectDirBitmapImage.Left;
  BitmapImage.Top := WizardForm.SelectDirBitmapImage.Top;
  BitmapImage.Width := WizardForm.SelectDirBitmapImage.Width;
  BitmapImage.Height := WizardForm.SelectDirBitmapImage.Height;
  // 设置图片属性
  BitmapImage.Stretch := True;
  BitmapImage.AutoSize := False;
  BitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\bitmap-test5.bmp'));
end;

调用时机 #

记得在合适的事件里调用这个过程，比如：

procedure InitializeWizard();
begin
  LoadSelectDirAndGroupImages();
end;

或者在选择目录页面显示时调用：

procedure SelectDirPageShow(Sender: TWizardPage);
begin
  LoadSelectDirAndGroupImages();
end;

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