Discussion :

[defluc]

Hello

Je voudrais ajouter un label à la page «Installation en cours» via la procédure InitializeWizard placée dans la section [code].

Quelqu'un pourrait-il me donner le nom du composant de cette page ?

Merci d'avance

[ouiouioui]

bonjour, pour ajouter un élément sur une page il est préférable d'utiliser:

tu le crée au démarrage ex:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure InitializeWizard();
var
  AboutButton: TButton;
begin
  AboutButton := TButton.Create(WizardForm);
  AboutButton.Left := 10;
  AboutButton.Top := 326;
  AboutButton.Width := 78;
  AboutButton.Height := 23;
  AboutButton.Caption := ExpandConstant( '{cm:about}');
  AboutButton.OnClick := @AboutButtonOnClick;
  AboutButton.Visible := false;
  AboutButton.Parent := WizardForm;
end;

et page installing tu le montre (et selon les pages que ta avant et après tu le cache):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
procedure CurPageChanged(CurPage: Integer);
begin
   if CurPage = pageavant then
   begin
    // set label invisible
    AboutButton.Visible := false;
   end;
   if CurPage = wpInstalling then
   begin
    // set label visible
    AboutButton.Visible := true;
   end;
   if CurPage = pageapres then
   begin
    // set label invisible
    AboutButton.Visible := false;
   end;
end;

pour les pages voir l'aide

CurPageID values for predefined wizard pages
wpWelcome, wpLicense, wpPassword, wpInfoBefore, wpUserInfo, wpSelectDir, wpSelectComponents, wpSelectProgramGroup, wpSelectTasks, wpReady, wpPreparing, wpInstalling, wpInfoAfter, wpFinished

[defluc]

J'avais trouvé une source de ce genre.

Mais n'est-il pas possible de créer le composant directement sur ma page voulue.

D'autre part, j'aurais voulu pouvoir modifier la hauteur d'un label existant (WelcomeLabel1).

[ouiouioui]

essaye avec curpagechanged

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
procedure CurPageChanged(CurPage: Integer);
begin
  if CurPage = wpWelcome then
  begin
    WizardForm.WelcomeLabel1.Size := 16;
  end;
end;

quand a créer le composant sur la page j'ai pas compris désolé.