associer un trackbar et un labelRésolu

Question

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 ?

Aidez les jeunes developpers......

florenth · Accepted Answer

Ahh zut, problème d'édition avec cette FreeTextBox, je croyais pourtant l'avoir mis mais il faut mettre un "-" (signe moins) ici : "if label1.Left < -
label1.width then"

florenth · Answer

Salut,

Tu pourrais nous passer ce que tu as mis dans le OInChange de ton Trackbar pour qu'on puisse exterminer ce bug ?
merci...

++

bdp8 · Answer

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Spin, ComCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Timer1: TTimer;
    Panel1: TPanel;
    Button3: TButton;
    TrackBar1: TTrackBar;
    procedure TrackBar1Change(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin

label1.Left := label1.Left-1;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Timer1.Enabled := not Timer1.Enabled;
  label1.Left:=(panel1.Width);

end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
        label1.Left := label1.Left-1;
end;

end.

Voila.

bdp8 · Answer

j'aurai voulu mettre aussi qqch de la forme 

timer1.interval := 1

Lorsque je change la position du trackbar timer1.interval diminu !

florenth · Answer

Et bien tu n'as qu'a mettre:

Timer1.Interval := TrackBar1.Position ^^

et c'est tout bon !

florenth · Answer

Eh, mais j'y pense, avec ce que tu as mis dans le OnTimer, le label ne va jamais réapparaitre ! Il faudrait plutot faire : Voila ton unité corrigée :

procedure TForm1.Timer1Timer(Sender: TObject); begin label1.Left := label1.Left - 1; if label1.Left < label1.width then label1.Left := panel1.Width; end; procedure TForm1.Button3Click(Sender: TObject); begin Timer1.Enabled := not Timer1.Enabled; label1.Left:=panel1.Width; end; procedure TForm1.TrackBar1Change(Sender: TObject); begin Timer1.Interval := TrackBar1.Position; end;

Bonne chance pour la suite... ++ Flo

bdp8 · Answer

OK merci beaucoup,

la quand je met le curseur du trackbar au minimum le text s'arréte.
et puis la vitesse ne varie pas tros !
Est ce que c'est normal ?

florenth · Answer

Oui c'est normal que le texte s'arrete et que la vitesse ne bouge pas trop.
Il faut que tu mettes dans l'inspecteur d'objet (pour ton trackbar):
- Max := 1000;
- Min := 50;

et là, ça devrait allez beaucoup mieux.

Oublie pas de valder les réponses qui te conviennent.

++
Flo

bdp8 · Answer

voila le lien vers mon programme.
http://rap041.free.fr/BD%20biss.rar

Bah Il ya une différence entre quand j'appuye sur le track bar sa va moins vite, mais sinon sur toutes position du trackbar c'est la meme chose !

bdp8 · Answer

c'est bon probléme regler au niveau de l'inspecteur d'objets , avec plusieurs teste !!
encore merci !

Associer un trackbar et un label

10 réponses

Votre réponse

Discussions similaires