Discussion :

[Droïde Système7]

Bonjour

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 :

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

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

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.

[Archimède]

un boolean...

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
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.

[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...

[Archimède]

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

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
 
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...


pas cool lol

[Droïde Système7]

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

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
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

@+

[Archimède]

oui, c'est bien vu à toi d'avoir soulevé ce truc là !

[cincap]

Bonjour à toutes et à tous,

@ Droïde Système7

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

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
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

[Droïde Système7]

Hello Cincap

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

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... ?

[cincap]

@ Droïde Système7

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

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 :

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
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

[Droïde Système7]

Cincap, bref, tu as lu en travers

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

@+

[cincap]

Bonjour à toutes et à tous,

@ Droïde Système7,

Voici donc la méthode avec un showmessage :

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
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