Asocier un trackbar et un label

Asocier un trackbar et un label - Delphi/Pascal - Programmation

Marsh Posté le 05-05-2007 à 14:51:10    

Bonjour,
j'ai un probléme concernant le Trackbar , voila je veux faire un bandeau déroulant avec un Timer et un trackbar qui augmente la vitesse de défilement.
Bon j'arrive a faire le défilement, cependant Ce que j'ai c'est que lorsque je change le trackbar ( onchange associé au Timer) la vitesse augmente mais juste si je reste appuyer sur le trackbar.
Ensuite la vitesse diminue lorsque j'arrête d'appuyé sur le trackbar.
Est ce que qqun aurait une idée là-dessus ?
 

Code :
  1. unit Unit1;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, ExtCtrls, StdCtrls, Spin, ComCtrls;
  9. type
  10.   TForm1 = class(TForm)
  11.     Label1: TLabel;
  12.     Timer1: TTimer;
  13.     Panel1: TPanel;
  14.     Button3: TButton;
  15.     TrackBar1: TTrackBar;
  16.     procedure Button3Click(Sender: TObject);
  17.     procedure Timer1Timer(Sender: TObject);
  18.     procedure Button1Click(Sender: TObject);
  19.   private
  20.     { Déclarations privées }
  21.   public
  22.     { Déclarations publiques }
  23.   end;
  25. var
  26.   Form1: TForm1;
  28. implementation
  30. {$R *.dfm}
  32. procedure TForm1.Timer1Timer(Sender: TObject);
  33. begin
  34. if label1.Left <=4-label1.Width/2 then //si tu es un pixel avant la moitié du texte
  35. label1.left:=3 else //reviens au debut du texte
  36. label1.Left := label1.Left-1;//sinon decale de 1 pixel
  37. end;
  39. procedure TForm1.Button1Click(Sender: TObject);
  40. begin
  41. //Timer1.Enabled := not Timer1.Enabled;//juste pour interompre le defilement
  42. end;
  44. procedure TForm1.Button3Click(Sender: TObject);
  45. begin
  46. Timer1.Enabled := not Timer1.Enabled;
  47.   panel1.Left:=round((Form1.Width-Panel1.Width)/2)-5;
  48. end;
  50. end.

Reply

Marsh Posté le 05-05-2007 à 14:51:10   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed