Есть вопрос - как поместить на форму часы...

← →
Leschiy-D © (2005-09-16 14:46) [0]

Есть вопрос - как поместить на форму часы...
Можно ипользовать TDateTime, но как сделать, что бы они шли?

← →
Antonn © (2005-09-16 14:47) [1]

DateTime.left:=DateTime.left+1;

← →
Leschiy-D © (2005-09-16 14:48) [2]

Притом идти начинали с 00:00:00 по нажатию кнопки, и по нажатию этой же кнопки останавливались...

← →
Leschiy-D © (2005-09-16 14:50) [3]

> Antonn © (16.09.05 14:47) [1]
> DateTime.left:=DateTime.left+1;

Допустим но на какое событие или в какой цикл это впихнуть???

← →
MBo © (2005-09-16 14:52) [4]

Кладешь на форму кнопку, Label и таймер с интервалом 1000 и Enabled:=False

var
Form1: TForm1;
t:Double=0;

procedure TForm1.Button3Click(Sender: TObject);
begin
Timer1.Enabled:=not Timer1.Enabled;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
t:=t+1/86400;
Label1.Caption:=TimeToStr(t);
end;

← →
IceBeerg © (2005-09-16 18:38) [5]

Antonn © (16.09.05 14:47) [1]
:)

← →
Наиль © (2005-09-17 17:00) [6]

>[1]
Спасибо за то, что поднял настроение

← →
Tonich © (2005-09-17 17:11) [7]

> Antonn © (16.09.05 14:47) [1]

эхе хех, что ж вы так человека обнадежили...

небось уже все голову поломал

← →
Antonn © (2005-09-17 17:52) [8]

Tonich © (17.09.05 17:11) [7]
эхе хех, что ж вы так человека обнадежили...
небось уже все голову поломал
зачем ломать, если MBo © (16.09.05 14:52) [4] дал нормальный рабочий код? :)

← →
Tonich © (2005-09-17 18:05) [9]

нет просто глядя вот на это ...
> Leschiy-D © (16.09.05 14:50) [3]

)))

← →
PZ (2005-09-17 18:19) [10]

Уважаемые мастера, ну что вы голову морочите и себе и людям.
Делается это элементарно:

Var T : tDateTime; procedure TForm1.Timer1Timer(Sender: TObject); begin T := Time; Label1.Caption := TimeToStr(T); end;

Leschiy-D © (16.09.05 14:48) [2]
Это не часы а секундомер.
Реализуется с помощью TLabel, TTimer и функции Now/
В варианте предложеным MBO надо изменить

t:=t+1/86400; Label1.Caption:=TimeToStr(t);

на

Label1.Caption:=TimeToStr(Now-StartTime);

> PZ (17.09.05 18:19) [10]
ну помоему автор хотел несколько иначе

> Притом идти начинали с 00:00:00 по нажатию кнопки, и по
> нажатию этой же кнопки останавливались...

в твоем же случаи с 00:00:00 они стартанут только один раз за сутки )))

PZ (17.09.05 18:19) [10]
Голову морочишь ты, абсолютно неверный ответ, другие хоть прикалывались, а ты похоже серьезно.

← →
PZ (2005-09-17 19:05) [14]

Есть вопрос - как поместить на форму часы... Найти похожие ветки