Вывести часа в caption

[soonner]

Хочу вывести часы в caption форму или любого другого обэкта. Кто подскажет как это правильно сделать!

[Sazary]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form1.Caption := TimeToStr(time);
end;

[Selestis]

Что вы подразумеваете под "часами"?

[Sazary]

Сообщение от Selestis

Что вы подразумеваете под "часами"?

Очевидно (по крайней мере, для меня), системное время.

[Selestis]

Извиняюсь, просто мне это было не шибко очевидно.

[soonner]

Сообщение от Sazary

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form1.Caption := TimeToStr(time);
end;

Большое спасибо, работает!

Да извеняюсь я немного недосформулировал что хочу узнать. Так время есть, а как узнать время работы программы. тоесть что бы выводило сколько времени прошло от запуска проги!

[Sazary]

Ну вот так:

var t : int64;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form1.Caption := IntToStr(t);
inc(t);
end;

Будет выводить время в секундах.

А вот в нормальном виде:

var t : int64;
 const
  SecPerDay = 86400;
  SecPerHour = 3600;
  SecPerMinute = 60;

function SecondToTime(const Seconds: Cardinal): Double;
var
  ms, ss, mm, hh, dd: Cardinal;
begin
  dd := Seconds div SecPerDay;
  hh := (Seconds mod SecPerDay) div SecPerHour;
  mm := ((Seconds mod SecPerDay) mod SecPerHour) div SecPerMinute;
  ss := ((Seconds mod SecPerDay) mod SecPerHour) mod SecPerMinute;
  ms := 0;
  Result := dd + EncodeTime(hh, mm, ss, ms);
end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(t);
Form1.Caption := TimeToStr(SecondToTime(t));
end;

Функцию SecondToTime стянул с Delphi World

[program123]

var
    time : integer;
...........

procedure TForm1.Timer1Timer(Sender: TObject);
begin
     time := time + 1;
     Label1.Caption := IntToStr(time);
end;

Это время в секундах, думаю как сделать с минутами и часами разберетесь.

[Ntlegend]

var t:cardinal;
****
t:=GetTickCount;
//выполняем какието действия
Caption := 'Время выполнения: '+IntToStr(GetTickCount-t)+' мс';

[Kotofff]

По-моему автору нужно время, а не таймер работы в милисекундах ...

var
    startTime : TTime;// глобальная переменная
...........

procedure TForm1.FormCreate(Sender: TObject);
begin
   startTime := Now;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   Form1.Caption := TimeToStr(Now - StartTime);// время работы в виде "00:00:00"
end;