Timer geht nicht ????

[Bernd29bln]

Hallo,

In meiner Komponente möchte ich eine TrackBar mit einem Timer bewegen .

So sieht es bissher aus:

Delphi-Quellcode:

constructor TMyCompo.Create(AOwner: TComponent);
begin

  TrackBarTimer := TTimer.create(self);
  TrackBarTimer.Enabled := True;
  TrackBarTimer.OnTimer := OnTimeEvent;
  TrackbarTimer.Interval := 200;

  inherited Create(AOwner);
end;

procedure TMyCompo.OnTimerEvent(Sender: TObject)
begin

  FTrackBar.Position := +50; // geht net , die stellung der TrackBar wird nicht verändert.

end;

Warum geht das nicht ????????

gruss Bernd

[turboPASCAL]

Du sagst ja mit
FTrackBar.Position := +50; Position ist gleich 50, und nicht das soch die Position um 50 erhöhen soll.


In etwa so sollte es werden:
FTrackBar.Position := FTrackBar.Position + 50;

[EWeiss]

Zitat von turboPASCAL:

Du sagst ja mit
FTrackBar.Position := +50; Position ist gleich 50, und nicht das soch die Position um 50 erhöhen soll.


In etwa so sollte es werden:
FTrackBar.Position := FTrackBar.Position + 50;

Jo ... Wird aber auf diese weise unweigerlich zum overflow kommen.
Und das dauert nicht lange.

gruß

[Luckie]

Tja, dann wirst du wohl eine Abfrage machen müssen oder das Konzept ändern.

[Phoenix]

Zitat von Bernd29bln:

TrackBarTimer.OnTimer := OnTimeEvent;
procedure TMyCompo.OnTimerEvent(Sender: TObject)

Daran könnte es ggf. auch liegen.

[turboPASCAL]

@EWeiss

Jupp, ein gewissenhafter Programierer wird schon darauf achten das es nicht dazu kommt oder ?

Delphi-Quellcode:

if Position + 50 <= MaxPosition then Position := Position + 50 else
  Position := MaxPosition

etc. ...

[Bernd29bln]

hallo,

Vielen Dank für eure Antworten.

gruss Bernd

[Bernd29bln]

Hi Leute,

Hab das jetzt mal ausprobiert, aber mein Timer Läuft einfach nicht.



Gruss Bernd

[stifflersmom]

Sicher, dass der nicht läuft?
Setz doch mal einen BreakPoint in der IDE in Deinem OntimerEvent
und drücke dann F9.
Dann wirst Du mit Sicherheit festellen, ob der timer läuft oder nicht.

Moin

[Bernd29bln]

Okay der Timer Funktioniert, aber die Trackbar Position wird nicht geändert .

gruss bernd