Suspendre Click souris

Bonjour,

J'ai un programme qui exécute différentes choses sur click droit de la souris.
Après que l'utilisateur ait cliqué une première fois, je souhaiterais que les clicks suivants ne soient pas pris en compte pendant 3 secondes.
Est-ce possible et si oui comment faire ?
Merci de vos réponses.

Tu supprimes le gestionnaire d'événements comme ça :

Code:

---

MonCompo.OnMouseDown := nil;

---

Et tu lances un timer qui va le remettre :

Code:

---

TimerResetMouseDown.Enabled := True;

---

Code:

---

1 2 3 4 5

procedure TForm1.TimerResetMouseDownTimer(Sender : TObject); begin TimerResetMouseDown.Enabled := False; MonCompo.OnMouseDown := MonCompoMouseDown; end;

---

Ou tout simplement tu base le code de ton OnClick sur une variable Booleene

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

PRocedure TForm1.FormClick(Sender : Tobject); Begin If not Self.CanClick Then Exit; <code> Self.Timer1.Enable := True; CanClick := False; End;   Procedure TForm1.Timer1Timer(Sender : TObject); Begin Self.Timer1.Enable := False; Self.CanClick := True; End;

---

Sjrd >> Des fois ya pas besoin de chercher midi a 14 heures ;)

Merci à vous deux, ça marche, mais j'ai pris la méthode de sjrd :lol:

Citation:

---

Envoyé par revsys

Merci à vous deux, ça marche, mais j'ai pris la méthode de sjrd :lol:

---

Combien il t'a payé ?!? ;)

Citation:

---

Envoyé par Clorish

Combien il t'a payé ?!? ;)

---

Comme quoi, le midi est parfois plus rentable que les 14h00 :mouarf: