1. Accueil
  2. Forum Codes-Sources
  3. Delphi / Pascal
Sujet Précédent Sujet Suivant

CLIC de SOURIS

Résolu
selma-elec Messages postés 27 Date d'inscription jeudi 2 octobre 2003 Statut Membre Dernière intervention 5 février 2007 - 26 janv. 2006 à 11:58
Cirec Messages postés 3833 Date d'inscription vendredi 23 juillet 2004 Statut Modérateur Dernière intervention 18 septembre 2022 - 26 janv. 2006 à 13:50
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

Réponse 1 / 1
Cirec Messages postés 3833 Date d'inscription vendredi 23 juillet 2004 Statut Modérateur Dernière intervention 18 septembre 2022 50
26 janv. 2006 à 13:50
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
3
Rejoignez-nous