Inno Setup PageDescriptionLabel相互重叠

Question

I recently made the switch to Inno Setup and it's fantastic! I was pretty much able to get most of the things to work except I'm having a trouble on something.

Basically, I'm trying to create my own header design and I was trying to make Page Title/Page Description transparent. However they are overlapping each other on page change. (Please refer to the picture).

Code:

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;

Also, I'm not even sure if this is the best way of doing this so if anyone have any suggestion, I'de love to hear them.

Answer 1

As you've correctly pointed out, you're creating your label many times. To be more specific, every time the new page is shown (every time the next or back buttons are pressed). You need to create the label only once, ideally in the wizard form initialization event, like the InitializeWizard . Except that, you then need to change the label's caption every time the page changes. As best for this you need to use that CurPageChanged event. So, to make transparent page description label (what I missed) you can use script like follows:

[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;