Discussion :

[isa3000]

Je souhaiterais réaliser une action différente selon qu'on appuie longtemps sur un bouton ou non. J'ai trouvé que pour l'évènement OnMouseMove on peut savoir si le bouton est enfoncé ou non avec Shift.Contains(ssLeft). Le problème, c'est que le programme réagit aussi quand je bouge la souris et pas que au moment où je clique sur le bouton.

Est ce qu'il y a un autre moyen de coder un bouton pour avoir une action différente selon qu'on clique longtemps sur un bouton ou non ?

[Mat.M]

Le problème, c'est que le programme réagit aussi quand je bouge la souris et pas que au moment où je clique sur le bouton.

les traitements sont appelés au mauvais moment alors...
il nous faudrait du code

[Bktero]

Bonjour,

La fonction s'appelle OnMouseMove, son nom me laisse penser qu'elle gère les mouvements de la souris et non les clics. Les fonctions intéressantes dans ce cas ne seraient pas plutôt OnMouseUp/Down ? Voir la diapo 95 de ce lien : http://eric.univ-lyon2.fr/~ricco/cou...pp_builder.pdf

EDIT : encore mieux : rechercher "The Mouse Down Message" dans cette page : http://www.yevol.com/bcb/Lesson16.htm

[isa3000]

D'abord voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
void __fastcall TForm1::ButtonM1Move(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
    Sleep(5);
    if (Shift.Contains(ssLeft)) { // vérifie que le bouton est enfoncé
        Edit1->Text = "OK";
    }
    else {
        Edit1->Text = "non OK";
    }
}

Avec OnMouseDown il affiche directement OK. J'ai aussi remarqué que Sleep ne marchais pas. Il aurait dû y avoir une attente de 5s.

[Bktero]

Non car Sleep prend un paramètre en millisecondes.

[BlueMonkey]

Est ce qu'il y a un autre moyen de coder un bouton pour avoir une action différente selon qu'on clique longtemps sur un bouton ou non ?

Comme indiqué par Bktero,

On prend une référence de temps à la pression de la souris

Code :

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

1
2
3
4
5
6
void __fastcall TForm1::Button1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y)
{
   MousePressedOn = GetTickCount();
 
   // éventuellement on déclenche un timer ou un thread pour faire des actions durant le clic
}

On calcul la différence entre le bouton appuyé et relaché.

Code :

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

1
2
3
4
5
6
7
void __fastcall TForm1::Button1MouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    Application->MessageBox(AnsiString(GetTickCount() - MousePressedOn).c_str(),"Press duration in ms",MB_OK);
 
   // on arrête le timer ou le thread déclenché pendant le MouseDown
}

[isa3000]

Merci BlueMonkey. La méthode fonctionne comme je le voulais. Je n'ai plus qu'à l'adapter.