Posted by max on July 21, 2004 at 23:50:00:
how would I have this clock tick and convert to time. It ticks in seconds and I want it on 60 to change to 1:00 and on 120 seconds change to 2:00 etc. I can't figure it out.
procedure TForm1.Timer1Timer(Sender: TObject); var Seconds: integer; DateTimeNow: TDateTime; begin DateTimeNow := Now; // get current date + time // Calculate time in seconds since Button1 was clicked Seconds := Round((DateTimeNow - DateTimeStart)*24*60*60); Label2.Caption := IntToStr(Seconds); end;
Related Articles and Replies