Suspendre Click souris

**revsys** · 29/05/2007, 14h02

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.

**sjrd** · 29/05/2007, 14h09

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

Code :

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

MonCompo.OnMouseDown := nil;

Et tu lances un timer qui va le remettre :

Code :

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

TimerResetMouseDown.Enabled := True;

Code :

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

1
2
3
4
5
procedure TForm1.TimerResetMouseDownTimer(Sender : TObject);
begin
  TimerResetMouseDown.Enabled := False;
  MonCompo.OnMouseDown := MonCompoMouseDown;
end;

**Clorish** · 29/05/2007, 14h16

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

Code :

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

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;