Discussion :

[Tchaill39]

Bonjour,

Dans mon logiciel, j'ai des boutons qui déclenchent des action longues sur un "click". Mon problème est que l'utilisateur, s'il fait deux clicks rapides sur le meme bouton, fait planter l'application car on entre deux fois dans la meme procedure : BIZARRE!!!!!

Quelqu'un a-il déjà rencontrer ce problème et comment le résoudre une fois pour toute, sans être obligé d'implémenter dans caque action déclenchée ?

[PadawanDuDelphi]

Salut,

Corriger ton problème sans corriger chaque procedure responsable de ce problème, je ne sais pas si c'est possible.
En revanche tu peux isoler les procédures longues et rajouter ces lignes de codes:

Code :

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

1
2
3
4
5
6
7
var OldEvent: TNotifyEvent;
begin
  OldEvent := TonButton.OnDblClick; 
  TonButton.OnDblClick := nil; 
....Ton code...
  TonButton.OnDblCLick := OldEvent;
end;

A+.

[philnext]

Il me semble, pour ton pb plus cohérent de modifier le fonctionnement de l'appli. C'est à dire, d'empècher de lancer 2 fois la même procédure.

[Gilbert Geyer]

N'est-il pas plus simple de faire en sorte que le 1er click sur le bouton considéré provoque immédiatement la neutralisation du bouton ? Par exemple :

Code :

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

1
2
3
4
5
procedure form1.button1click(sender..);
begin       button1.enabled:=false;
              button1.Refresh; // pour prise en compte immédiate du false
              puis instructions de lancement de l'action longue 
end;

[philnext]

=> Gilbert.
Oui en fait, c'est ce que je sous entendais.
Ne pas oublier de le remettre en enable à la fin....

[edam]

ou meme déplacé ton traitement dans mouseup

[Whiler]

ou meme déplacé ton traitement dans mouseup

J'vois pas ce que ça change ? un intérêt particulier dans ce contexte ?

Car, cela implique toujours de coder un truc du genre :

Code :

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

1
2
button1.enabled:=false;
button1.Refresh;

ou ya un truc qui m'échappe ?

[Tchaill39]

Bon, si je résume, j'ai deux solutions :

- soit je vais dans chaque procedure lancée par un click et j'insere un booleen qui empeche de rentrer plusieurs fois dedans : UN PEU CONTRAIGNANT

- Soit je surcharge les le onclick de mes bouton en le rendant "enabled" le temps que l'action qu'il contienne se finisse. Mais comment est-ce possible de déterminer la fin de l'action Onclick?

[Gilbert Geyer]

ou meme déplacé ton traitement dans mouseup

Vraiment???? Le lancement du traitement ne serait-il pas alors déclenché au mouseUp du 1er-click puis-redéclenché au mousUp du 2ème-click ? ce que Tchaill39 veut empêcher.

[PadawanDuDelphi]

- Soit je surcharge les le onclick de mes bouton en le rendant "enabled" le temps que l'action qu'il contienne se finisse. Mais comment est-ce possible de déterminer la fin de l'action Onclick?

A la fin de ta procédur OnClick tu remet ton button à "enabled":=true;...Pas besoin de savoir quand elle se termine, dès qu'elle est finie, tu autorise ainsi à nouveau à la réappliquer.

A+.

[Tchaill39]

Le probeme de fond est le suivant :

- Une procedure est déclenchée sur un événement
- Afin d'empecher à l'appli de rentrer une nouvelle fois dans le code, il faut détecter le fin de l'événement onclick, ce qui n'est à mon avis pas possible, sauf dans le cas où on le fait à l'intérieur de chaque procédure.

Une autre solution serait peut-être dans l'objet bouton d'insérer un timer et d'empecher da réalisation d'un nouveau click selon un délai défini.....

[Gilbert Geyer]

je surcharge les le onclick de mes bouton en le rendant "enabled" le temps que l'action qu'il contienne se finisse. Mais comment est-ce possible de déterminer la fin de l'action Onclick?

Code :

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

1
2
3
4
5
6
7
procedure tagada.ButonXClick(sender ...);
begin           ButonX.enabled:=false;
                  ButonX.refresh;
                  traitement pendant lequel le bouton est désactivé 
                  ButonX.enabled:=true; // : ré-activation du bouton
end; // <--- fin de l'action Onclick

Pigé ?

C'est ce que Philnext visait en disant "Ne pas oublier de le remettre en enable à la fin...."

[Cl@udius]

Salut

J'ai du mal à comprendre ton problème...
Si comme je le suppose ton traitement est lancé dans le OnClick du bouton, il est très simple rendre inactif ton bouton pendant la durée du traitement.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Enabled := False;
  Button1.Refresh;
  //
  // ton traitement long...
  //
  Button1.Enabled := True;
end;

Ce code a d'ailleurs déjà été proposé !
[edit] Oops grillé par Gilbert [/edit]

@+Claudius

[PadawanDuDelphi]

Je réexplique comme il faut alors, désolé...

Code :

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

1
2
3
4
5
6
7
8
procedure form1.button1click(sender..); 
begin
button1.enabled:=false; button1.Refresh; // pour prise en compte immédiate du false  puis instructions de lancement de l'action longue 
...
Ton code de ton boutton
...
button1.enabled:=true; button1.Refresh;
end;

Tant que ton button1.enabled est à false, il est "grisé": il sera impossible à l'utilisateur de cliquer, dblcliquer,... dessus. Ces évènements sont donc désactivés. Quand tu le repasse à true, ils sont réactivés.

Si l'effet "grisé" ne plait pas à toi ou à tes clients, utilisent plutôt mon premier conseil pour désactiver un évènement:

Code :

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

1
2
3
4
5
6
7
8
procedure form1.button1click(sender..); 
var OldEvent: TNotifyEvent;
begin
  OldEvent := TonButton.OnDblClick; 
  TonButton.OnDblClick := nil; 
....Ton code...
  TonButton.OnDblCLick := OldEvent;
end;

L'idée du Timer n'ai pas une idée à mon avis, puisque tu n'a aucun moyen de connaître précisemment le temps de tes action si tu as un multi-tâche important, ce qui t'obliugerais à prendre un intervalle de timer trop important.

A+.

[Edit]Ouais, alors là j'arrive carrément après la bataille, le rangement du champs de bataille et la reconstruction de la ville... [/Edit]

[Whiler]

et si le code de ton bouton est simplement un appel à une autre procédure, c'est pas génant, tous les exemplesci-dessus fonctionneront...

[Whiler]

et puis si c'est vraiment long.. tu peux aussi gérer le pointeur de ta souris...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button1Click(Sender: TObject);
var
  p : TCursor;
begin
  p := Screen.Cursor;
  Screen.Cursor := crHourGlass;
  button1.enabled:=false; button1.Refresh;
 
//   ton code
 
  button1.enabled:=true; button1.Refresh;
  Screen.Cursor := p;
end;

[Gilbert Geyer]

Tchaill39 : Vu? YA+K !

[Tchaill39]

Toutes vos idées sont très bien. C'est en gros ce que je fait aujourdh'ui sur mes boutons.

Je cherchais une idée pour ne pas avoir à faire cette manipulation à chaque fois que je rajoute un bouton ou tout autre objet avec événement...

L'idée du timer est je vous l'accorde un peu farfelu mais c'est la seule qui me permet d'insérer le controle dans l'objet bouton !!!!!!

[Gilbert Geyer]

Je cherchais une idée pour ne pas avoir à faire cette manipulation à chaque fois que je rajoute un bouton ou tout autre objet avec événement...

Si c'est pour économiser le nombre de manips gère le code de Whiler comme suit:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure Bascule(unBouton : tButton);
begin     with Screen do 
            if cursor=crHourGlass then cursor:=crDefault
                                         else cursor:=crHourGlass; 
            with Form1 do
            begin if unBouton.enabled=true 
                    then unBouton.enabled:=false
                    else unBouton.enabled:=true;
                    unBouton.Refresh;
           end;
end;

... ce qui réduit toutes les procèdeures boutonClick à ceci :

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
begin        Bascule(Button1);  
 
               //   ton code
 
               Bascule(Button1);  
end;

[philnext]

Si c'est juste le doubleclick qui gène, une autre solution c'est : plutôt que de mettre des boutons, mettre un composant qui gère le OnDblClick (style Tpanel) avec un look de bouton et tu fais pointer ton OnDblClick sur le OnClick.