Форум: "Потрепаться";
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];
ВнизВопрос по таймеру Найти похожие ветки
← →
Anatoly Podgoretsky (2002-03-23 11:51) [7]shane54 © (22.03.02 19:12)
Знаешь чем лень кончается в конференциях?
shane54 © (22.03.02 19:19)
Расчитываешь на наши телепатические способности, спасибо лестно
Есть мнение, (23.03.02 02:51)
Спасибо то спасибо, но пример весьма ущербный, приведу более качественный.
//Глобальная переменная
Var
EventTime : TDateTime;
//Присвоение значения глобальной переменной
Procedure TFORM1.Button1click(...);
begin
EventTime := Now;
end;
//И процедура таймера
Procedure TForm1.Timer1OnTimer(...);
begin
Label1.caption := IntToStr(Trunc(Now - EventTime) + " дней " + TimeToStr(Now - EventTime);
end;
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.006 c