Einzelnen Beitrag anzeigen

Hobby-Programmierer

Registriert seit: 19. Jan 2006
Ort: München
392 Beiträge
 
Delphi XE Starter
 
#7

Re: TDateTimePicker weiterlaufen lassen

  Alt 23. Feb 2007, 19:13
Nabend ...,
für eine Statusbar mit Uhrzeitanzeige hatte ich das in etwa so gelöst. Der Trenner zwischen Stunde und Minute blinkt damit der Benutzer net denkt das die Uhr steht!
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Tag:= StrToInt(FormatDateTime('s', Now));
  if odd(Timer1.Tag) then
    Label1.Caption:= FormatDateTime('hh:mm', Now)
   else
    Label1.Caption:= FormatDateTime('hh mm', Now);
end;
Den Rest hatte ja shmia schon erklärt.

LG Mario
Mario
'Lesen Sie schnell, denn nichts ist beständiger als der Wandel im Internet!'
  Mit Zitat antworten Zitat