clic long sur borland C++

Version imprimable

31/01/2012, 11h05
isa3000

clic long sur borland C++

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 ?
31/01/2012, 11h20
Mat.M

Citation:

Envoyé par isa3000

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
31/01/2012, 11h26
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

D'abord voici mon code :

Code:

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.

31/01/2012, 12h15
Bktero

Non car Sleep prend un paramètre en millisecondes.

Citation:

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:

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:

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 }

01/02/2012, 09h27
isa3000

re

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