Zeit in Label wiedergeben

[SirThornberry]

wie kann man es jetzt noch verhindern das dabei das Label nicht flackert bei der Aktuallisierung. (hängt vermutlich irgendwie mit parent.repaint oder so zusammen wenn das Label repainted wird)

[Matze]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  DoubleBuffered:=true;
end;

[hacker]

Das war schon fast mehr als ich wollte.
Wenn ich das mir so ansehe, ist es eigentlich sehr simpel.

Ich danke euch allen.


Gruss Häcki

[Wormid]

Will auch ne Lösung posten:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var h, m, s, msec: Word;
begin
  if Timer1.Tag = 0 then Timer1.Tag := GetTickCount;
  DecodeTime(((Timer1.Tag - GetTickCount) / MSecsPerDay), h, m, s, msec);
  msec := msec div 10;
  Label1.Caption := Format('%.2d:%.2d:%.2d', [m, s, msec]);
end;