Hallo GreatFlo,
der Timer funktioniert schon, aber du verwendest ihn wohl falsch. Du hast zwei Zeiten, eine Referenzzeit Zeit1 und eine laufende Zeit (Zeit2 = Now). Im Timer musst du natürlich die Zeit2 auch laufen lassen, sonst siehst du nichts:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
Zeit1 := EncodeDate(2005, 12, 14) + EncodeTime(19, 8, 0, 0);
DerTimer.Enabled := True;
end;
procedure TForm1.DerTimerTimer(Sender: TObject);
begin
D := Abs(Now - Zeit1);
S := FormatDateTime('hh:nn:ss', Now - Zeit1);
If D >= 1 Then S := IntToStr(Trunc(D)) + ' Tage ' + S;
Label1.Caption := FormatDateTime('hh:nn:ss', Zeit1);
Label2.Caption := FormatDateTime('hh:nn:ss', Now);
Label3.Caption := S;
end;
Grüße vom marabu