Détecter le double-clic sur un Panel

Version imprimable

Bonjour :D

Je me demande s'il est possible sur un Panel de détecter le double-clic, dans le cas où la méthode du simple clic est également affectée :
Code:

1 2 3 4 5 6 7 8 9 procedure TForm1.pnlTestClick(Sender: TObject); begin ShowMessage('Hello = Simple clic !'); end; procedure TForm1.pnlTestDblClick(Sender: TObject); begin ShowMessage('Hello = DOUBLE clic, snifff personne ne me verra...'); end;
Possible de détecter le double-clic ?

C'est vraiment une question de débutant :lol:

Je suppose que ce compo est un peu bâti comme le TImage et que son clic tourne autour du double-clic... ?

Merci de vos lumières.

un boolean...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
 private
    { Déclarations privées }
    dbclick:boolean;
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 dbclick:=true;
end;
 
procedure TForm1.Panel1Click(Sender: TObject);
begin
 dbclick:=not dbclick ;
 if not dbclick  then    ShowMessage('Hello = Simple clic !');
end;
 
procedure TForm1.Panel1DblClick(Sender: TObject);
begin
 if dbclick then ShowMessage('Hello = DOUBLE clic, snifff personne ne me verra...');
end;
 
end.

01/06/2010, 13h54
Archimède

Excuse, il faut encore compléter car pour deux clicks décalés dans le temps par exemple ça ne marche pas (normal) à cogiter...
C'est faisable, en réfléchissant un peu...

C'est vrai que ce n'est pas simple car même en rajoutant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 procedure TForm1.Panel1Click(Sender: TObject); begin if not dbclick then begin ShowMessage('Hello = Simple clic !'); dbclick:=true; end; dbclick:=not dbclick ; end; procedure TForm1.Panel1DblClick(Sender: TObject); begin if dbclick then ShowMessage('Hello = DOUBLE clic, snifff personne ne me verra...'); end;
dbclick est à false par défaut au départ...(pas besoin de rajouter oncreate...

la procedure panel1click est parcourue même pour un double click...
:sm:

pas cool lol

Archimède, je te remercie de te pencher sur ce souci, je suis étonné de n'avoir lu nulle part que personne n'ai soulevé cela 8O
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 procedure TForm1.pnlTestMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin If NOT (ssDouble in Shift) Then begin ShowMessage('SIMPLE-clic'); exit; // halt; end; If (ssDouble in Shift) Then begin ShowMessage('Double-clic'); exit; end; //else ShowMessage('SIMPLE-clic') end;
Super curieux, car même en tentant de ruser comme ci-dessus, ça foire lamentablement.

Qui pensait que cette particularité relevait du niveau débutant :mouarf:

@+

01/06/2010, 14h38
Archimède

oui, c'est bien vu à toi d'avoir soulevé ce truc là !
01/06/2010, 14h55
Droïde Système7

Et même si je déplace le simple clic vers le MouseDown en laissant le double-clic sur le OndblClick = que dalle !

Ça me fait un peu penser à ce thread :
http://www.developpez.net/forums/d89...ontre-tbutton/

:roll:
01/06/2010, 15h00
Cl@udius

Salut JP

Lors d'un double-clic sur ton panel, les 2 événements OnClick et OnDblClick seront exécutés. C'est un comportement standard.

Dans ton exemple, l'évènement OnDblClick n'est pas exécuté à cause du ShowMessage placé dans le OnClick.
En effet le second click est intercepté car la fiche du ShowMessage est modale. Le second Click se termine en 'ding'.

@+

Salut Claude :D

Tu as absolument raison, greuuuuu le ShowMessage est donc à manier avec précaution.
Code:

1 2 3 4 5 6 7 8 9 procedure TForm1.pnlTestMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin If (ssDouble in Shift) Then begin Edit1.Text := 'DOUBLE clic !'; end else Edit1.Text := 'Simple clic !'; end;
Donc ce principe basique fonctionne impec.

Mais l'ennui (en réel) est que je lance une fenêtre (modale) sur le double clic :aie:

Là, si le simple clic comme à la confesse, passe toujours en premier ; je suis mal barré.

@+ et merci de ton éclaircissement :ccool:

(Pour résumer, sur un panel j'ai un :
- simple clic qui lance une ComboBox
- Double-clic qui lance une fenêtre modale)

01/06/2010, 15h30
Droïde Système7

Que je suis bête !!!

Suffit que je réalise cela indirectement, par exemple en récupérant l'information, par exemple comme ci-dessus, ensuite la traiter.

Youpi !!!!!!!!!!! merci aux participants :ccool:

Edit: la récup de l'info doit bien entendu être traitée après une petite tempo, hé oui car le simple clic passe toujours en premier.

Deux exemples de codes

Si ça peut en aider d'autres, je donne ici deux principes différents de méthodes :

Première méthode avec timer (Interval = 200)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
procedure TForm1.pnlTestMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Edit1.Text     := '';
  timer1.Enabled := true;
 
  If (ssDouble in Shift) then
  begin
    Edit1.Text := 'DOUBLE';
  end
  else Edit1.Text := 'Simple';
 
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := false;
 
  if Edit1.Text = 'Simple' then ShowMessage('Simple clic');
  if Edit1.Text = 'DOUBLE' then ShowMessage('DOUBLE clic !!!');
 
end;

------------------------------------------------------------------------------------------------------
Deuxième méthode SANS composant timer
(Il faut ajouter DateUtils en uses)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
procedure WaitProcessMessages(Milliseconds : integer);
var BeginTime : TDateTime;
begin
  BeginTime := Now;
  while MilliSecondsBetween(Now, BeginTime) < Milliseconds do
    Application.ProcessMessages;
end;
 
 
procedure TForm1.Panel3MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Edit1.Text := '';
 
  If (ssDouble in Shift) then
  begin
    Edit1.Text := 'DOUBLE';
    exit;
  end
  else Edit1.Text := 'Simple';
 
  WaitProcessMessages(200);
  if Edit1.Text = 'Simple' then ShowMessage('Simple clic');
  if Edit1.Text = 'DOUBLE' then ShowMessage('DOUBLE CLIC !!!');
end;

Si vous avez mieux, dites-le, merci ;-)

Par principe, je n'aime pas trop l'ajout d'un Timer...
Mais avouons que le "Application.ProcessMessages" dans la procédure WaitProcessMessages, n'est pas mieux non plus :oops:

@+

Bonjour à toutes et à tous,

@ Droïde Système7

Voici ma proposition plus légère et sans timer :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Procedure DoubleClick1(Sender: TObject);
    Procedure OnClick1(Sender: TObject);   
 procedure FormCreate(Sender: TObject); // A ajouter
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
panel1.ondblClick := DoubleClick1;
panel1.onClick := OnClick1;
end;

Procedure TForm1.DoubleClick1(Sender: TObject); // Procédure ajoutée
begin

 panel1.ondblClick := DoubleClick1;
 panel1.caption := 'C''est Ok pour un double click';

end;

Procedure TForm1.OnClick1(Sender: TObject); // Procédure ajoutée
begin

 panel1.onClick := OnClick1;
 panel1.caption := 'C''est Ok pour un seul click';

end;

end.

@+,

Cincap

01/06/2010, 19h19
Droïde Système7

Hello Cincap :D

Heuu.... oui mais si tu as bien tout lu, ton code ne fonctionne pas avec une fenêtre modale.

Ajoute un ShowMessage au lieu de placer une indication dans le caption du panel :P :mrgreen:

En lisant plus haut, il est bien indiqué qu'en tous les cas, le SIMPLE clic passe en premier.

Alors, si tu ajoutes des ShowMessages... ? ;)

@ Droïde Système7

Je me suis basé uniquement sur ta question par défaut sans vraiment vérifier les réponses.:lol:

Citation:

Je me demande s'il est possible sur un Panel de détecter le double-clic, dans le cas où la méthode du simple clic est également affectée :

Voila, voila.

Au fait, on éliminer la procédure Onclick et utiliser ce code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm1 = class(TForm) Panel1: TPanel; Procedure DoubleClick1(Sender: TObject); procedure FormCreate(Sender: TObject); // A ajouter private { Déclarations privées } public { Déclarations publiques } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin panel1.ondblClick := DoubleClick1; end; Procedure TForm1.DoubleClick1(Sender: TObject); // Procédure ajoutée begin panel1.ondblClick := DoubleClick1; panel1.caption := 'C''est Ok pour un double click'; showmessage('bien'); end; end.
@+,

cincap

01/06/2010, 19h59
Droïde Système7

Cincap, bref, tu as lu en travers :mouarf:

Mais je suis certain que tu peux nous montrer une autre méthode : valable avec un ShowMessage ;)

@+

Bonjour à toutes et à tous,

@ Droïde Système7,

Voici donc la méthode avec un showmessage :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Panel1: TPanel;
 
    Procedure DoubleClick1(Sender: TObject);// A ajouter
 
    procedure FormCreate(Sender: TObject);
 
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
panel1.ondblClick := DoubleClick1;
 
end;
 
Procedure TForm1.DoubleClick1(Sender: TObject); // Procédure ajoutée
begin
 
 panel1.ondblClick := DoubleClick1;
 panel1.caption := 'C''est Ok pour un double click';
 showmessage('Et maintenant tu me vois !');
 
end;
 
end.

Citation, il est vrai que si tu places aussi un message dans le onclick de ton panel, c'est ce message qui sera prioritaire.

@+,

Cincap

02/06/2010, 10h01
Droïde Système7

Hello Cincap,

Citation:

est vrai que si tu places aussi un message dans le onclick de ton panel, c'est ce message qui sera prioritaire.

Je ne te le fais pas dire :P

Avec en prime l'impossibilité de détecter le double-clic !

Mais alors pas besoin de tout ce code, un simple appel au DblClick fait l'affaire.

@+ ;)