Discussion :

[free07]

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

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 )

[Papy214]

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

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

Image1Click
Image1DblClick

[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()

Pourquoi ne génére t'il pas seulement l'événement OnDblClick() ?

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

[Papy214]

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 :

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

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;

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