Часы постоянного действия

[MAKEDON]

Я написал часы, теперь осталась одна проблема. Как заставить их идти все время? Как стандартные часы Windows. После выключения время все еще идет. Как это сделать?

[Stilet]

После выключения время все еще идет

Глупости... Выключи комп и вырви батарейку - и идти перестанет.
ЗАчем тебе заставлять их идти все время, если ты спокойно можеш получить точное текущее время из самой Оси.

[Titan123]

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

ЗАчем тебе заставлять их идти все время, если ты спокойно можеш получить точное текущее время из самой Оси.

чтобы учиться и получать удовольствие от проделанной работы!

по сабжу:
я вас правильно понял (если нет-поправьте меня), вы хотите сделать так, чтобы при включении вашего приложения на нем отображалось текущее время?

тогда можно сделать так:

label1.caption:=timetostr(time);

а вообще немного не понял вопроса...

[Stilet]

чтобы учиться и получать удовольствие от проделанной работы!

Научить часы идти даже когда комп выключен это вершина вертуозництва, учитывая что автор даже не в БИОС лезет

[Terran]

Как уже говорил Stilet, что в выключеном компьютере время идёт в самом биосе, а при его включении виндоус считывает это время. Так и сделай в приложении, что бы при его запуске оно считывало время. Я немного добавлю к тому что писал Titan123 . Время и дату(если дата нужна будет) можно считать так:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=TimeToStr(Now);  //Считывание текущего время
// Label1.Caption:=DateTimeToStr(Now); // Считывание текущей дату с временем
// Label1.Caption:=DateToStr(Now); // Считывание только даты
end;

Есть ещё много способов для считывания время, но это самые простые.

[MAKEDON]

Это впринципе понятно! Но у меня часы сделаны по принцыпу:
Label1 - секунды, Label2 - минуты, Label3 - часы; Как зделать чтобы в них вносились сек, мин и часы времени которого щас соотвественно?

[Stilet]

В таймер пропиши это:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=FormatDateTime('hh',time);
Label2.Caption:=FormatDateTime('nn',time);
Label3.Caption:=FormatDateTime('ss',time);
end;

[MAKEDON]

Во это мне у нужно спс! А можешь прописать тоже самое толтко с датой, это ведь со временем! Заранее СПС!

[Stilet]

А можешь прописать тоже самое толтко с датой, это ведь со временем!

А в хелп заглянуть?

[Terran]

Для даты делается так:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=FormatDateTime('dd',Date);
Label2.Caption:=FormatDateTime('mm',Date);
Label3.Caption:=FormatDateTime('yy',Date);
end;