CLIC de SOURIS

Résolu
Signaler
Messages postés
27
Date d'inscription
jeudi 2 octobre 2003
Statut
Membre
Dernière intervention
5 février 2007
-
Messages postés
3826
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
10 mai 2021
-
Bonjour à tous.

Après beaucoup de recherche, je n'ai toujours pas trouvé, alors je vous pose la question :

Comment faire sur une image (Timage) pour detecter un DOUBLE-CLI DROIT ou DOUBLE-CLIC GAUCHE .

Je sais, c'est tout con mai j'y arrive pas.
Merci

JMN

1 réponse

Messages postés
3826
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
10 mai 2021
46
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);
beginIf (ssDouble in Shift) and (Button mbLeft ) Then Label1.Caption : 'Double Left';If (ssDouble in Shift) and (Button mbRight ) Then Label1.Caption : 'Double Right';
end;


<HR>

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