Uhrzeit in Label anzeigen

[Störtebeker]

Hallo,

hab schon die Suche verwendet, aber nicht wirklich was passendes gefunden.
Ich möchte die Uhrzeit in einem Label anzeigen, das sich natürlich aktualisiert.

Gefragt sind Stunde:Minute.

z.B.: 01:58 --> 01:59 --> 2:00

Bei der Suche bin ich auf folgendes gestoßen:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
milsek,tdiv: cardinal;
var
min,sek,starttime : Cardinal;
begin
milsek := GetTickCount;
tdiv := milsek-starttime;
if tdiv >= 1000 then 
begin
inc(sek);
starttime := starttime + 1000;
end;
if sek >= 60 then
begin 
sek := 0;
inc(min);
end;
label1.Caption := inttostr(min)+':'+inttostr(sek)+':'+inttostr(tdiv);
end;

folgendes kommt dabei heraus:

1:0:42935...

Beitrag wurde um 01:55 Uhr geschrieben.

Wie kann ich das realisieren?

[silver-moon-2000]

Zitat:

Zitat von Störtebeker

Hallo,

hab schon die Suche verwendet, aber nicht wirklich was passendes gefunden.
Ich möchte die Uhrzeit in einem Label anzeigen, das sich natürlich aktualisiert.

Gefragt sind Stunde:Minute.

z.B.: 01:58 --> 01:59 --> 2:00


Beitrag wurde um 01:55 Uhr geschrieben.

Wie kann ich das realisieren?

Verstehe ich Dich richtig? Du willst die aktuelle Uhrzeit in einem Label anzeigen?

Ich verwende dafür immer

Delphi-Quellcode:

FormatDateTime('hh:nn',now);

Für das Aktualisieren musst Du es natürlich wieder in einen Timer packen

[Hansa]

z.B. so :

Delphi-Quellcode:

lblUhrzeit.Caption := 'Uhrzeit : ' +FormatDateTime('hh:mm',now);
...
procedure Tfrm.tiUhrzeitTimer(Sender: TObject);
begin
  inherited;
  lblUhrzeit.Caption := 'Uhrzeit : ' +FormatDateTime('hh:mm',now);
end;

Dabei soll ein Timer das abfragen.

[Störtebeker]

Ja, genau sowas habe ich gesucht! Danke an euch beide. :thumb:

mfG
Störtebeker