Discussion :

[az0101]

Bonjour,

J'aurais besoin d'accéder à la propriété 'Enable' du boutton Next...Pour l'instant j'utilise la fonction native
function NextButtonClick(CurPageID: Integer): Boolean;
, avec un système de test à l'interieur pour empécher d'avancer d'un pas, mais bon celà aurrait été quand même mieux si le bouton Next put être grisé...

ce qui semble impossible ? Où bien selon vous ?

[GoustiFruit]

NextButton.Enabled := ConditionRemplie;

[az0101]

Mais non...NextButton n'est pas reconnu. C'est justement le problème !

[ouiouioui]

Tu l'utilise ou?
C'est

Code :

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

1
2
3
4
5
6
7
8
 
procedure CurPageChanged(CurPageID: Integer);
begin
  case CurPageID of
    wpWelcome:
      WizardForm.NextButton.Enabled :=false;
  end;
end;

[az0101]

merci, celà compile mais n'a aucun effet sur le bouton.

[ouiouioui]

ah bon, si tu veux peut-être (pas sûr de trouver) une raison montre ton code, tu utilise quel version?

j'ai la version 5.3.5 et si je crée une nouveau script avec l'assistant et utilise le code le bouton suivant apparait bien désactivé

script exemple:

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!
 
#define MyAppName "My Program"
#define MyAppVerName "My Program 1.5"
#define MyAppPublisher "My Company, Inc."
#define MyAppURL "http://www.example.com/"
#define MyAppExeName "MyProg.exe"
 
[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{88594B8B-0BF3-4C3F-89DE-AA95FF462557}
AppName={#MyAppName}
AppVerName={#MyAppVerName}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes
 
[Languages]
Name: "english"; MessagesFile: "compiler:Default.isl"
 
[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
 
[Files]
Source: "C:\Program Files\Inno Setup 5\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion
; NOTE: Don't use "Flags: ignoreversion" on any shared system files
 
[Icons]
Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon
 
[Run]
Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#MyAppName}}"; Flags: nowait postinstall skipifsilent
 
[Code]
procedure CurPageChanged(CurPageID: Integer);
begin
  case CurPageID of
    wpWelcome:
      WizardForm.NextButton.Enabled := False;
  end;
end;

[az0101]

Bon , en résumé, je dirais que si je pose cette question absurde c'est parce qu' éffectivement il se passe quelquechose de pas normal. Le scripting innosetup n'est pas trop dur...bon hein, pour qui touche au Delphi.

Peut être que je pourrais préciser que le truc particulier est que le script est basé sur une page customisée ( donc avec Page := CreatecustomPage et tout le code qui suit, ou le 'tralala' si c'est plus clair ).

Ensuite je ne peux pas fournir le script car le 'client' est vicitme de piratage et que donc je ne tiens pas à encourager la contrafacon du produit.

La seule chose que je peux fournir c'est cet échantillon, qui concerne exactement la section pour laquelle je pose la question:

Code :

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

1
2
3
4
5
6
7
8
9
10
Function NextButtonClick(CurPageID: Integer): Boolean;
Begin
  Result  := True;
  Visible := True;
  If DataDir = 'Not found' Then
    Begin
      Result := False;
      MsgBox('Please define a path before continuing', mbInformation, mb_Ok);
    End;
End;

Plutôt que de définir False en result, le client préférerait que le bouton soit grisé. Sauf que celà ne marche pas. et c'est un peux étrange. D'où ma question insistante qui peut paraitre absurde.

"DataDir = 'Not found'" n'arrive qu'après que l'utilisateur ait eut a faire avec la custom page dont je parlais. C'est pourquoi l'ID de la page n'est jamais tésté.

Donc voilà...je ne trolle pas, ca ne marche vraiment pas dans mon cas.

[ouiouioui]

"DataDir = 'Not found'" n'arrive qu'après que l'utilisateur ait eut a faire avec la custom page dont je parlais. C'est pourquoi l'ID de la page n'est jamais tésté.

ok tu as une page personnalisé c'est sur cette page que tu veux le bouton next grisé? et a l'arrivé dessus ou lors du clique sur next si DataDir = 'Not found'
parceque a l'arrivé ta le code et lors du clique chez moi sa fonctionne

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!
 
#define MyAppName "My Program"
#define MyAppVerName "My Program 1.5"
#define MyAppPublisher "My Company, Inc."
#define MyAppURL "http://www.example.com/"
#define MyAppExeName "MyProg.exe"
 
[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{00D5FD9E-F7AD-4530-8312-5EA8664C0551}
AppName={#MyAppName}
AppVerName={#MyAppVerName}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes
 
[Languages]
Name: "english"; MessagesFile: "compiler:Default.isl"
 
[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
 
[Files]
Source: "C:\Program Files\Inno Setup 5\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion
; NOTE: Don't use "Flags: ignoreversion" on any shared system files
 
[Icons]
Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon
 
[Run]
Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#MyAppName}}"; Flags: nowait postinstall skipifsilent
 
[CODE]
const
 DataDir = 'Not found';
 
Function NextButtonClick(CurPageID: Integer): Boolean;
Begin
  Result  := True;
  case CurPageID of
    wpWelcome:
      If DataDir = 'Not found' Then
      Begin
        WizardForm.NextButton.Enabled := False;
        MsgBox('Please define a path before continuing', mbInformation, mb_Ok);
        Result := False;
      End;
  end;
End;

j'ai surement rien compris encore

[az0101]

Non tu as très bien compris, mais ca ne marche pas dans mon script ( après un énième test et suite à votre dernière réponse) , allez savoir pourquoi ?

Dailleurs à la base mon problème était que je ne savais pas comment accéder au bouton, donc avec 'WizardPage. ' Après la deuxième réponse ca aurait du marcher...

Mais non. Le bouton Next reste bel et bien toujours actif. éventuellement si je résoud le problème je partagerai la résolution, parce qu'il y a quelque chose d'un peu étrange, je trouve.

Merci encore pour l'aide fournie.