Discussion :

[anapurna]

salut

un peu complexe le bascule
moi je l'aurait plutot fait comme 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 Bascule(unBouton : tButton);
var
  Evt : TNotifyEvent;
begin
  Evt := unBouton.OnClick;
  unBouton.OnClick := nil;
  unBouton.enabled := not(unBouton.enabled);
  unBouton.Refresh;
  unBouton.OnClick := Evt;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Bascule(Button1);
end;

@+ Phil

[TicTacToe]

Il y a juste un truc que je n'ai pas tout a fait compris dans le problème.

Ton traitement long lance t-il un autre thread ?

Car dans ce cas, il peut effectivement y avoir ré-entrance, c'est à dire, que la procédure est executée une 2eme fois, alors qu'elle n'est pas encore terminée dans sa 1ere version, ce qui peut souvent impliquer un plantage.

Sinon, si c'est la procédure qui est lancée une 2eme fois, en général c'est désagréable mais souvent, pas de plantage. (mais je connais pas le contexte)

Sinon, dans les méthodes employées, toutes les méthodes sont bonnes
- délier l'evt du bouton
- poser une variable style 'déjà entrée dans la proc' -> avantage de pseudo désactiver l'evenement quelquesoit la méthode d'appel.
- disabler le bouton (et l'enabler dans un finaly)

Dans ce cas précis, pour ma part, une préférence pour le disabled du bouton: c'est en meme temps logique au niveau utilisateur (pas le droit de lancer une 2eme fois le traitement tant que le 1er n'est pas fini) et un verrou pour le code, à condition que cet évenement ne soit pas appelé manuellement autre part.

[Tchaill39]

Ton traitement long lance t-il un autre thread ?

Car dans ce cas, il peut effectivement y avoir ré-entrance, c'est à dire, que la procédure est executée une 2eme fois, alors qu'elle n'est pas encore terminée dans sa 1ere version, ce qui peut souvent impliquer un plantage.

C'est exactement ce que je constate !!!!!

[Whiler]

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.

Je pense que dans le cas présent, Tchaill39 a fait un p'tit abus de langage dans le titre en utilisant "double-clique" D'où les guillemets et que par conséquent, il veut éviter des "multi-clicks" qui ne sont pas obligatoirement des clicks suffisamment rapprochés pour être interprêtés comme double-click...

Sinon, une autre piste qui n'a pas été abordée...

Créer ton propre bouton qui gère l'événement click.... pour éventuellement avoir des nouveaux événements (privés ou publics en fonction de tes besoins) du type OnDebutClick, OnFinClick où tu pourrrais gérer l'état de ton bouton de façon générique... et avoir simplement tes méthodes métiers sur l'événement OnClick... Et puis donc, ensuite, remplacer tes boutons par celui que tu aurais créé...

Non ? vous en pensez quoi ?

[philnext]

@ Whiler : Oui bien sûr je suis d'accord avec toi, je répondais simplement 'à la question de base'. En fait c'est un simple problème d'organisation d'application.

[Whiler]

En fait c'est un simple problème d'organisation d'application.

@ philnext : +1
@ philnext : et créer un composant... t'en penses quoi ?

[Linkin]

Le thread suivant est intéressant pour voir le problème(et à but pédagogique ;-) ):
http://www.developpez.net/forums/sho...ghlight=label1

[Tchaill39]

L'idée de surcharger le composant "Bouton" m'est venue également à l'idée,
mais je ne vois pas comment, dans mon composant, détecter la fin du futur code qui sera codé sous l'événement onclick !!!!

Tchaill39 a fait un p'tit abus de langage dans le titre en utilisant "double-clique" D'où les guillemets et que par conséquent, il veut éviter des "multi-clicks"

c'est vrai j'avoue..... : petit abus de language

[philnext]

@ philnext : et créer un composant... t'en penses quoi ?

C'est une bonne idée à condition, pour le pb présent, de pouvoir créer des 'évènements' sur un évènement : ici quand on rentre puis quand on sort du OnClick, je ne sais pas si c'est possible.
@Tchaill39 : pour l'instant tu as combien de boutons et de procédures lancées (à la louche) ?

[Tchaill39]

Ben en fait c'est encore un peu plus compliqué .... désolé.

En fait mes boutons sont liés à des actions qui elles-meme appellent des procédure. Ainsi les actions peuvent être lancer de plusieurs endroits.
A la louche, j'ai au moins 200 actions

J'aurais trouvé une petite parade qui serait de surcharger le TAction de dévier le onclick et de gérer moi meme le fait que l'action n'est as dispo

Le problème c'est que les actions sont dans des TActionList et que pour simplifier le tout les bouton, les menus et tous ces objets ont comme propriété une action de type ........TAction En gros fo que je surcharge tout mes composants ......

[Cl@udius]

En fait mes boutons sont liés à des actions qui elles-meme appellent des procédure. Ainsi les actions peuvent être lancer de plusieurs endroits.
A la louche, j'ai au moins 200 actions

Ben je dirais, dans le même esprit que pour OnClick d'un TBouton, tu peux rendre ton action disabled:

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TForm1.Action1Execute(Sender: TObject);
begin
  TAction(Sender).Enabled := False;
 
  // Appel de ta procédure de traitement
 
  TAction(Sender).Enabled := True;
end;

Ainsi tous les contrôles liés à ton action seront grisés (Bouton, items de menu de popup, ...).

Bon évidement puisque tu as 200 actions....

@+ Claudius