Question

我要在我的 Inno 脚本中添加自定义的按钮, 加上 < code> TBUITmapImaage 类。

我的Inno Setup 脚本编译得很好, 但位图没有在窗体中显示。我查看了任何可能性, 但找不到错误。这就是 < code> tabitmapImaage 部分看起来像 atm :

procedure CreateMuteButton(ParentForm: TSetupForm);
var
  MuteImage: TBitmapImage;
  BitmapFileName: String;
begin
  BitmapFileName := ExpandConstant( {tmp}muteBtn.bmp );
  ExtractTemporaryFile(ExtractFileName(BitmapFileName));
  MuteImage := TBitmapImage.Create(ParentForm);
  MuteImage.Bitmap.LoadFromFile(BitmapFileName);
  MuteImage.Cursor := crHand;
  MuteImage.OnClick := @MuteButtonOnClick;
  MuteImage.Parent := ParentForm;
  MuteImage.Left := 45;
  MuteImage.Top := 80
  MuteImage.Width := 38;
  MuteImage.Height := 50;
end;

procedure InitializeWizard();
var
  val: Integer;
begin
  CreateMuteButton(WizardForm);
  (...)
end;

Answer 1

WizardForm 客户区域本身仅可见于底色线下方。上面是 WizardForm.InnerPage ,中间是个人/当前向导页面,包含在私有的 Innernotebook 中。

将图像放在页面的左侧 :

MuteImage := TBitmapImage.Create(WizardForm.InnerPage);
MuteImage.Parent := WizardForm.InnerPage;
MuteImage.Left := 0;
{ Uses the top of the wizard pages to line up }
MuteImage.Top := WizardForm.SelectDirPage.Parent.Top;

由此可见,在下一节中:

MuteImage := TBitmapImage.Create(WizardForm);
MuteImage.Parent := WizardForm;
MuteImage.Left := 0;
{ Below the inner page }
MuteImage.Top := WizardForm.InnerPage.Height;

友情链接