Trackbar/Slider nach Zeit bewegen!?

[stahli]

irgendwie so?

Delphi-Quellcode:

// Initialisierung
StartTime := Now;
Duration := ...; // TDateTime
EndTime := StartTime + Duration;
Pos := MaxPos;
Length := MaxP - MinP;

// in Timerbehandlung
if (Now < EndTime) then
  Pos := MaxPos - Round(((Now - StartTime) * Length)) / Duration)
else
  Pos := MinPos;