Discussion :

[beral]

Bonjour, je pense que ma question est simple mais je debute un peu...

J'ai un bouton sur mon Form,
je voudrais que quand on appuie sur ce bouton et qu'on le laisse enfoncé (cad on ne relache pas le clic de la souris), il envoie la valeur 1 a une variable
Et que qd on le relache il envoie la valeur 0

Je suis sous BCB6
Merci d'avance

[DjmSoftware]

bonsoir,
tu peux utiliser les évennements OnKeyDown et OnKeyUp du composant Button
pour l'utilisation avec le client et OnMouseDown et OnMouseUp pour l'utilisation avec la souris
Cordialement

[ero-sennin]

Salut,

Voici un exemple d'utilisation :

Dans le .h:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
class TForm1 : public TForm
{
__published:	// Composants gérés par l'EDI
        TButton *Button1;
        TButton *Button2;
        void __fastcall Button1MouseDown(TObject *Sender,
          TMouseButton Button, TShiftState Shift, int X, int Y);
        void __fastcall Button1MouseUp(TObject *Sender,
          TMouseButton Button, TShiftState Shift, int X, int Y);
private:	// Déclarations utilisateur
                int enfonce;
public:		// Déclarations utilisateur
        __fastcall TForm1(TComponent* Owner);
};

Et dans le .cpp :

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::Button1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
  enfonce=1;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1MouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
  enfonce=0;
}

J'ai déclarer la variable enfonce dans le .h comme une variable dite privée. C'est à dire que cette variable ne sera accessible seulement dans la fiche dans laquelle tu travailles.
Ensuite, sur la fiche, j'y ai mis un bouton et j'ai "édité" les événements OnMouseDown et OnMouseUp comme dans le code ci dessus.

J'espère que je ne t'embrouille pas trop
Bonne Soirée

[beral]

Merci enormément a tous, c'etait tout bete mais ca m'a bien aidé.

[ero-sennin]

Pas de problème

Content de t'avoir aidé