Discussion :

[aadelfa]

salut tout le monde
mon probleme :j'ai un speedbutton et je veux qu'il execute des instructions quand je maintiens le click dessus,et qu'il s'arrête dés que je lache mon click.
je crois que je devrai utiliser les evenements "mousedown" et "mouseup",mais je ne sais pas comment
est ce possible et merci

[emmental]

bonjour
par exemple si tu as une TForm avec un TSpeedButton et un TLabel

sur l'evenenement OnMouseDown du Speed Button:

Code :

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

1
2
3
4
5
6
 
void __fastcall TForm8::SpeedButton1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
 Label1->Caption = "lache";	
}

et sur l'evenenement OnMouseUp du Speed Button:

Code :

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

1
2
3
4
5
6
 
void __fastcall TForm8::SpeedButton1MouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
Label1->Caption = "fin";	
}

[aadelfa]

bonjour
par exemple si tu as une TForm avec un TSpeedButton et un TLabel

sur l'evenenement OnMouseDown du Speed Button:

Code :

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

1
2
3
4
5
6
 
void __fastcall TForm8::SpeedButton1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
 Label1->Caption = "lache";	
}

et sur l'evenenement OnMouseUp du Speed Button:

Code :

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

1
2
3
4
5
6
 
void __fastcall TForm8::SpeedButton1MouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
Label1->Caption = "fin";	
}

salut et merci quand même,mais ton code affiche "lache",une seule fois,moi ce que je veux c'est répéter la même instruction jusqu'à relachement de la souris .
exemple:

Code :

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

1
2
3
 
X=10;
Shape1->Left= Shape1->Left+(X);

je veux que Shape1 bouge à droite jusqu'à ce je relache la souris.
et merci

[bandit boy]

Salut, il te faut un Timer dans lequel tu testeras à chaque Xms si tu appuie sur ton bouton, si oui, tu executeras ton code, sinon tu ne fais rien:
en globale

Code :

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

1
2
 
   bool execution = false;

dans ton OnMouseDown

Code :

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

1
2
 
   execution = true;

dans ton OnMouseUp

Code :

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

1
2
 
  execution = false;

et dans ton Timer

Code :

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

1
2
3
4
5
6
 
  if(execution)
  {
   //code à effectuer
   ....
  }

[aadelfa]

Salut, il te faut un Timer dans lequel tu testeras à chaque Xms si tu appuie sur ton bouton, si oui, tu executeras ton code, sinon tu ne fais rien:
en globale

Code :

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

1
2
 
   bool execution = false;

dans ton OnMouseDown

Code :

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

1
2
 
   execution = true;

dans ton OnMouseUp

Code :

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

1
2
 
  execution = false;

et dans ton Timer

Code :

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

1
2
3
4
5
6
 
  if(execution)
  {
   //code à effectuer
   ....
  }

salut et merci ,je n'avais pas pensé à utiliser un timer,mais ça marche maintenant,merci encore

[adurandet]

et avec un

do
{
}
while(execution)

en mettant
- execution à true dans l'evenement mouseDown;
- execution à false dans l'evenement mouseUp

est ce que ca marcherait ?