Re: Delphi clock

Posted by Shahab Sharif on August 03, 2004 at 11:25:33:

In Reply to: Delphi clock posted by max on July 21, 2004 at 23:50:00:

You Can Use This Structure :

var
  DateTimeStart : TDateTime;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  Seconds: integer;
  DateTimeNow: TDateTime;
  Hour, Min, Sec, MSec: Word;
begin
  DateTimeNow := Now; // get current date + time
  DateTimeNow := DateTimeNow - DateTimeStart;
  DecodeTime(DateTimeNow, Hour, Min, Sec, MSec);
  Label1.Caption := IntToStr(Hour)+':'+IntToStr(Min)+':'+IntToStr(Sec);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  DateTimeStart := Now; 
  Timer1.Enabled := True;
end;