[XE7] OnClick et OnDblClick

Version imprimable

05/03/2015, 14h17
free07

[XE7] OnClick et OnDblClick

Bonjour,

Je viens de découvrir un phénomène bizarre, j'utilise un TImage avec l'événement OnDblClick() pour changer l'image à afficher, jusqu'à maintenant, pas de problème, cela fonctionne.

Et puis j'ai décidé d'utiliser aussi l'événement OnClick() sur ce Timage pour faire autre chose et chose étonnante, l'événement OnDblClick n'est plus utilisé, lorsque je fais un double click sur le TImage, c'est l'évènement OnClick qui est généré ... :calim2:

Je ne vois pas d'ou cela peut provenir, que je fasse un click ou un double click, c'est toujours l'événement OnClick qui est généré et plus du tout le OnBblClick....

( je précise que le HitTest du Timage est à True )

XE7 et Firemonkey ne me pose aucun problème de ce genre avec le code suivant:

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
 
unit Unit2;
 
interface
 
uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Layouts,
  FMX.Memo, FMX.Objects;
 
type
  TForm2 = class(TForm)
    Image1: TImage;
    Memo1: TMemo;
    procedure Image1DblClick(Sender: TObject);
    procedure Image1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.fmx}
 
procedure TForm2.Image1Click(Sender: TObject);
begin
  Memo1.Lines.Add('Image1Click');
end;
 
procedure TForm2.Image1DblClick(Sender: TObject);
begin
  Memo1.Lines.Add('Image1DblClick');
end;
 
end.

le double-click affiche

Citation:

Image1Click
Image1DblClick

06/03/2015, 08h37
free07

Salut,

J'avais fait l'essai avec juste une image sur une fiche et en affichant un message sur chacun des événements et j'avais le même problème.

Et on le voit aussi dans ton exemple, sur un double click il génère l'évenement OnClick(), puis l'événement OnDblClick() :calim2:

Pourquoi ne génére t'il pas seulement l'événement OnDblClick() ?
06/03/2015, 09h14
Linkin

Parce qu'un double clic, ce sont deux clics d'affilée dans un laps de temps donné. Pour le gérer, il n'y a deux solutions:
- tu retardes chaque clic, du laps de temps pour détecter un double clic (temps donné par le système d'exploitation). Ce qui peut être très problématique en fonction de ce délai, en terme de réactivité.
- tu fais un clic, puis un double clic. C'est ce qui est fait.

Si tu veux le comportement 1, c'est à toi de le gérer avec un timer:
- tout dans le OnClick. Tu cliques, si le timer est actif, c'est un doucle clic, sinon tu réactive le timer. Si le timer atteint sa limite tu le désactives et tu fais l'action correspondant au clic simple.

Citation:

Je ne vois pas d'ou cela peut provenir, que je fasse un click ou un double click, c'est toujours l'événement OnClick qui est généré et plus du tout le OnBblClick....

La phrase indiquait que le double-clic ne se déclenchait plus.
Mon exemple démontrait le contraire.

Comme le dit Linkin, un double-clic est une suite de 2 clic. Normal que OnClick soit déclenché aussi .
Si le fait de coder le double clic doit désactiver le clic simple, on peut faire un truc dans le genre:
Code:

1 2 3 4 5 6 7 8 9 10 11 procedure TForm1.Image1Click(Sender: TObject); begin if not Assigned(Image1.OnClick) then memo1.Lines.Add('onclic'); end; procedure TForm1.Image1DblClick(Sender: TObject); begin memo1.Lines.Add('ondoubleclic'); end;

06/03/2015, 10h24
Linkin

Le double clic ne se déclenchait plus car il affichait un message (ShowMessage), le deuxième click n'était pas sur le bouton, mais sur le message ;).
06/03/2015, 10h46
free07

Citation:

Envoyé par Linkin

Le double clic ne se déclenchait plus car il affichait un message (ShowMessage), le deuxième click n'était pas sur le bouton, mais sur le message ;).

exact !

Citation:

Envoyé par Papy214

Comme le dit Linkin, un double-clic est une suite de 2 clic. Normal que OnClick soit déclenché aussi .
Si le fait de coder le double clic doit désactiver le clic simple, on peut faire un truc dans le genre:

J'utilise Delphi depuis peu de temps, j'ai très longtemps utilisé Builder C++ avec la VCL et je n'ai jamais constaté ce phénomène... Ou alors ma mémoire me joue des tours... ( ce qui est bien probable )

En fait, je voudrais utiliser les deux actions ( click et double-click ) et faire une action différente selon que l'utilisateur click sur l'image ou double-click dessus.