CLIC de SOURIS

Réponse acceptée !
Bon c'est simple si tu dois faire la difference entre un double droit ou gauche
dans l'évenement onMouseDown de ton TImage
tu écris ceci :

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
If (ssDouble in Shift)  and (Button = mbLeft   )  Then Label1.Caption := 'Double Left';
If (ssDouble in Shift)  and (Button = mbRight   )  Then Label1.Caption := 'Double Right';
end;

---

le doucle clique gauche existe déjà dans les évenements de TImage (Voir Inspecteur d'objets onget évenements)
donc tu peux faire ceci pour le gauche:

procedure TForm1.Image1DblClick(Sender: TObject);
begin
  Label1.Caption := 'Double Left';
end;

et ceci pour le Droit :

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
If (ssDouble in Shift)  and (Button = mbRight   )  Then Label1.Caption := 'Double Right';
end;

Voilà à toi de choisir
Si la réponse te convient n'oublie pas de cliquer sur Réponse Acceptée

@+
Cirec