Discussion :

[grid93]

Bonjour ! Voilà, je viens de commencer le delphi depuis une semaine et depuis hier matin je bloque sur un simple bouton récalcitrant. Il est censé, clic 1, faire telle chose et clic 2, faire autre chose. voici le code :

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
 
procedure TForm3.Button2Click(Sender: TObject);
 
label
 
  Switch;
 
var
 
  ButSwitch: string;
 
begin
 
  if ButSwitch=''
 
    then goto Switch;
 
  ButSwitch:='';
 
  (fonctions, fonctions, fonctions...)
 
  Button2.Caption:='Appliquer';
 
  Switch:
 
  ButSwitch:='func2';
 
  (fonctions, fonctions, fonctions...)
 
  Button2.Caption:='Rétablir';
 
end;

Sauf que, j'ai beau bombarder mon bouton Appliquer/Rétablir, il reste sur Appliquer et ne fait rien du tout ! j'en ai donc conclu que les variables étaient effacées à la fin d'une procédure.

Quelqu'un a une solution de rechange ? Merci !

[AODRENN]

Bon Delphi n'est pas du basic, pas de GOTO

Par contre je ne vois pourquoi tu as cree la variable: ButSwitch ?

De plus qu'as tu voulu dire en mettant en commentaire (fonctions, fonctions, fonctions...) ?

Essaye cela:

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
procedure TForm3.Button2Click(Sender: TObject);
begin
 
  if Button2.caption = ''
  then Begin
        Switch;
        Button2.Caption:='Appliquer';
  end;
 
  if Button2.caption = 'Appliquer'
  then Begin
        Switch;
        Button2.Caption:='Rétablir';
  end;
 
end;

[grid93]

Bonjour Aodrenn!

Par contre je ne vois pourquoi tu as cree la variable: ButSwitch ?

Je ne savais pas que deux groupes de procédures pouvaient être insérées dans un seul begin!

De plus qu'as tu voulu dire en mettant en commentaire (fonctions, fonctions, fonctions...) ?

Ce serait trop long de mettre tout le code dans ce post!

Je vais essayer ça !

[grid93]

Génial, ça marche !

Merci Aodrenn !

[bjl]

bonjour, je dirais plutôt de mettre un Else if sur la 2ème condition

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
procedure TForm3.Button2Click(Sender: TObject);
begin
 
  if Button2.caption = ''
  then Begin
        Switch;
        Button2.Caption:='Appliquer';
  end
 
  else if Button2.caption = 'Appliquer'
  then Begin
        Switch;
        Button2.Caption:='Rétablir';
  end;
 
end;

sinon, il n'y aura pas besoin d'un second click pour passer à "rétablir"

[AODRENN]

Oui bien sur tu as raison
Ou avais la tete????


Mais on peut encore simplifier

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm3.Button2Click(Sender: TObject);
begin
 
  Switch;
 
  if Button2.caption = ''
  then  Button2.Caption:='Appliquer';
  end if Button2.caption = 'Appliquer'
  then  Button2.Caption:='Rétablir';
 
end;

[Caine]

Une autre méthode consiste à utiliser la propriété Tag du bouton.

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
 
procedure TForm3.Button2Click(Sender: TObject); 
begin 
 
  if sender is TButton then
     begin
     with  (sender as TButton) begin
      case Tag of 
         case 0: 
            begin
            Tag := 1;
            Caption := 'Rétablir';
            // Autres traitements spécifiques
            end;
        case 1:
            begin
            Tag := 0;
            Caption := 'Appliquer';
            // Autres traitements spécifiques
            end;
       end;            
 
end;

Je jette l'idée sans pouvoir la compilée, mais le principe y est.
Avantage? Dans l'autre version, si tu veux faire une application multi-linguiste, tu auras des petist soucis.

[sjrd]

Euh moi je ferais encore plus simple :

Code :

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

1
2
3
4
5
6
7
8
procedure TForm3.Button2Click(Sender: TObject); 
begin 
  Switch;
  if Button2.Caption = 'Appliquer' then
    Button2.Caption := 'Rétablir'
  else
    Button2.Caption := 'Appliquer';
end;

[Manopower]

enfin vu que grid93 a des (fonctions) (fonctions) (fonctions) à mettre en code derrière son bouton inutile de simplifier à outrance en enlevant les bloc begin / end, il en aura besoin !

pour finir ça donne donc

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
procedure TForm3.Button2Click(Sender: TObject);
begin
 
  if Button2.caption ='Rétablir'  then 
  Begin
    Button2.Caption:='Appliquer';
    //Insérer ici les fonctions
  end
  else  if Button2.caption = 'Appliquer'  then 
  Begin
    Button2.Caption:='Rétablir';
    //Insérer ici les fonctions
  end;
 
end;

NB : la solution avec le Tag est en effet une très bonne idée pour une application multilangues.