Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Leschiy-D © (2005-09-16 14:46:00)
Есть вопрос - как поместить на форму часы...
Можно ипользовать TDateTime, но как сделать, что бы они шли?

PZ (2005-09-17 19:05:00) [1]
>Tonich © (17.09.05 18:22) [12]

Да, я не обратил внимание на дополнение [2] и написал именно часы.

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

Tonich (2005-09-17 18:22:00) [3]

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

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

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

Anatoly Podgoretsky (2005-09-17 18:20:00) [4]
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 (2005-09-17 18:19:00) [5]
Уважаемые мастера, ну что вы голову морочите и себе и людям.
Делается это элементарно:

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

Tonich (2005-09-17 18:05:00) [6]
нет просто глядя вот на это ...
> Leschiy-D © (16.09.05 14:50) [3]

)))

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

Tonich (2005-09-17 17:11:00) [8]

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

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

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

Наиль (2005-09-17 17:00:00) [9]
>[1]
Спасибо за то, что поднял настроение

IceBeerg (2005-09-16 18:38:00) [10]
Antonn © (16.09.05 14:47) [1]
:)

MBo (2005-09-16 14:52:00) [11]
Кладешь на форму кнопку, 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;

Leschiy-D (2005-09-16 14:50:00) [12]

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

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

Leschiy-D (2005-09-16 14:48:00) [13]
Притом идти начинали с 00:00:00 по нажатию кнопки, и по нажатию этой же кнопки останавливались...

Antonn (2005-09-16 14:47:00) [14]
DateTime.left:=DateTime.left+1;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »