Inno Setup PageDescriptionLabel se chevauchant

Question

Je suis récemment passé à Inno Setup et c'est fantastique! J'étais à peu près capable de faire fonctionner la plupart des choses sauf que j'ai un problème avec quelque chose. Fondamentalement, j'essaye de créer ma propre conception d'en-tête et j'essayais de rendre la description de titre/page de page transparente. Cependant, ils se chevauchent lors du changement de page. (S'il vous plaît se référer à l'image).

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; 

Aussi, je ne suis même pas sûr que ce soit la meilleure façon de le faire, donc si quelqu'un a une suggestion, I'de aimer les entendre.

Answer 1

Comme vous l'avez bien souligné, vous créez votre étiquette plusieurs fois. Pour être plus précis, chaque fois que la nouvelle page est affichée (chaque fois que vous appuyez sur les boutons Suivant ou Précédent). Vous devez créer l'étiquette une seule fois, idéalement dans l'événement d'initialisation du formulaire de l'assistant, comme le InitializeWizard. Sauf que, vous devez ensuite modifier la légende de l'étiquette chaque fois que la page change. Comme meilleur pour cela, vous devez utiliser cet événement CurPageChanged. Donc, pour faire l'étiquette de description de page transparente (ce que je raté), vous pouvez utiliser le script comme suit:

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