2

我最近切换到 Inno Setup，这太棒了！除了在某些事情上遇到麻烦之外，我几乎能够让大部分事情正常工作。

基本上，我正在尝试创建自己的页眉设计，并且试图使页面标题/页面描述透明。但是，它们在页面更改时相互重叠。（请参考图片）。

http://img703.imageshack.us/img703/6180/88647320.png

代码：

procedure InheritBoundsRect(ASource, ATarget: TControl);
begin
  ATarget.Left := ASource.Left;
  ATarget.Top := ASource.Top;
  ATarget.Width := ASource.Width;
  ATarget.Height := ASource.Height;
end;

procedure CurPageChanged(CurPageID: Integer);
var
  TD: TLabel;
begin
    TD := TLabel.Create(WizardForm);
    TD.Parent := WizardForm.PageDescriptionLabel.Parent;
    TD.Caption := WizardForm.PageDescriptionLabel.Caption;
    TD.WordWrap := WizardForm.PageDescriptionLabel.WordWrap;
    TD.Transparent := True;
    InheritBoundsRect(WizardForm.PageDescriptionLabel, TD);
    TD.AutoSize := True;
end;

另外，我什至不确定这是否是最好的方法，所以如果有人有任何建议，我很乐意听取他们的意见。

4

1 回答 1

4

正如您正确指出的那样，您多次创建标签。更具体地说，每次显示新页面时（每次按下下一步或返回按钮时）。您只需要创建一次标签，最好是在向导表单初始化事件中，如InitializeWizard. 除此之外，您需要在每次页面更改时更改标签的标题。为此，您需要使用该CurPageChanged事件。因此，要制作透明的页面描述标签（我错过的），您可以使用如下脚本：

[Code]
var
  DescLabel: TLabel;

procedure InheritBoundsRect(ASource, ATarget: TControl);
begin
  ATarget.Left := ASource.Left;
  ATarget.Top := ASource.Top;
  ATarget.Width := ASource.Width;
  ATarget.Height := ASource.Height;
end;

procedure InitializeWizard;
begin
  DescLabel := TLabel.Create(WizardForm);
  DescLabel.Parent := WizardForm.PageDescriptionLabel.Parent;  
  DescLabel.WordWrap := WizardForm.PageDescriptionLabel.WordWrap;
  DescLabel.AutoSize := WizardForm.PageDescriptionLabel.AutoSize;
  DescLabel.Transparent := True;
  InheritBoundsRect(WizardForm.PageDescriptionLabel, DescLabel);

  WizardForm.PageDescriptionLabel.Visible := False;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  DescLabel.Caption := WizardForm.PageDescriptionLabel.Caption;
end;
于 2013-01-21T12:12:34.473 回答