Discussion :

[AlfredKr]

Bonjour,

J'ai Delphi 2010.
J'ai un petit souci et ne sait comment le résoudre.
J'ai un sous programme très long (en temps de calcul) qui est lancé (appelé) par un click d'un button. Le problème est que, quand, par inadvertance, je re-click sur ce button avant la fin du calcul, le sous programme est relancé.
J'ai essayé de mettre au début du sous programme un enabled=false du button et de le remettre à true à la fin du calcul. Cela ne fait rien, un 2ème click relance le programme. Devrais-je ajouter un application doevents après le "enabled=false" ou lancer le programme par un double-click ?

Merci d'avance pour l'aide que vous pourrez m'apporter.

Fred

[redoran]

bonjour; si vous faite la propriété du bouton enabled=false : je crois que nous vous pouvez pas cliquer sur le bouton.
j'utilise la même méthode :
b1.enabled:= false; ==> la 1 ligne du programme.
b1.enabled:=true;==> derniere lignes du programe.
sinon y'as d'autres methode tel que :
*) utilisation d'un tprogresse bar si le calcule prend beaucoup de temps.
*) utilisation d'une requête c'est plus rapide....

[skywaukers]

Bonjour,

essaye de mettre un application.processmessages après avoir positionné le enabled à false. Il est possible en effet que windows n'ai pas le temps de traiter tous ses messages avant que le traitement long ne commence.

Et pour blinder, tu peux aussi utiliser une variable qui indique si le traitement est en cours. Ainsi tu la test avant de commencer. Si pas en cours tu la positionne et tu fais ton traitement. A la fin de celui-ci (idéalement à l'intérieur d'un try..finally) tu remets la variable à son statut initial.

@++
Dany

[AlfredKr]

Bonjour Skywaukers,

J'ai essayé avec application.processmessages après le enabled = false et ça ne marche pas.
J'ai aussi essayé en faisant onclick(btn) := nil et ça ne marche pas non plus.
Auparavant j'avais aussi utilisé une variable (genre calculfait=true ou false) mais je voulais fignoler avec une astuce plus subtile.

Merci quand même.

Fred