Problem mit Trackbar

[Cyberbob]

Also, die Zeit bekommst du mit Now. Einen Teil dieser Zeit extrahieren kannst du mit FormatDateTime()
FormatDateTime('FormatString', Now); mit "h" bekommst du die Stunden, mit "n" die Minuten, mit "s" die Sekunden.

Also in etwa so:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Trackbar1.Position := StrToInt(FormatDateTime('h', Now));
  Trackbar2.Position := StrToInt(FormatDateTime('n', Now));
  Trackbar3.Position := StrToInt(FormatDateTime('s', Now));
end;

Im OnCreate des formulars musst du dann noch die Max-Eigenschaften setzen. 24 für die Stunden und jeweils 60 für Minuten und sekunden.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  TrackBar1.Max := 24;
  TrackBar2.Max := 60;
  TrackBar3.Max := 60;
end;

dann noch die Anfangszeit einstellen:

Delphi-Quellcode:

Trackbar1.Position := StrToInt(FormatDateTime('h', Now));
Trackbar2.Position := StrToInt(FormatDateTime('n', Now));
Trackbar3.Position := StrToInt(FormatDateTime('s', Now));