[kaizer131]

Вопрос такой , при появлении формы таймер на ней начинает отсчитывать время прошедшее с ее появления, процесс отображается в двух Label (min и sec) при закрытии формы таймер останавливается .
Как сделать чтоб значение на котором остановился таймер можно было отобразить на новой форме, появляющейся после закрытия старой, и в последствии вывести конечные значения всех таймеров на одной форме?
Вроде изложил суть кто может что посоветовать?

[dmdx]

ты про TTimer из палитры system?

[kaizer131]

Да именно про него

[dmdx]

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

при появлении формы таймер на ней начинает отсчитывать время прошедшее с ее появления

Таймер начинает действовать с момента его создания или если свойство enabled := true. Это же компонент посмотри процедуру TTimer.Create
т.е. сперва создается приложение пото креится форма потом креится компоненты на ней, а потом она отображается. В момент создания компонента TTimer и начиниется отсчет времени.

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

при закрытии формы таймер останавливается .

Таймер останавливается если свойство enabled := false или дестроится компонент (или форма которая является родителем для компонента). т.е. если у тебя при закрытии происходит дестрой формы или выход из приложения, то компонент уничтожается. Если просто закрывается, а потом опять открываешь, то время отсчитывается постоянно. Но это в том случае если на этапе компиляции у тебя создается форма с таймером и вызываешь ты ее методом

Код:

xfrom.Show;
// или 
if xform.ShowModal = mrOk then...

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

Как сделать чтоб значение на котором остановился таймер можно было отобразить на новой форме

Если у тебя таймер содержиться на форма xform1 например. То просто на закрытие формы (Close) повесь это

Код:

xform1.timer1.enabled := false;

и у тебя остановиться счетчик. А на показ (Show) повесь это

Код:

xform1.timer1.enabled := true;

и тогда на лейбелах будет отображаться последние время перед тем как закроешь форму.

[kaizer131]

Да , счетчик запускается и останавливается свойством enabled это верно. Но главное, на новой форме необходимо показать не сам счетчик(тк там будет новый счетчик, с новым отсчетом времени ) а именно время на котором он остановился, отобразить это допустим в лейбле на новой форме (старую закрыли close), а в конце создаем что то пипа таблицы рекордов, отображая там значения таймеров

[dmdx]

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

Но главное, на новой форме необходимо показать не сам счетчик(тк там будет новый счетчик, с новым отсчетом времени ) а именно время на котором он остановился

создай на главной форме или в модуле переменные и передавай туда а потом бери от туда
вариант 1

Код:

 //при открытии новой формы
 label1.caption := oldFrom.label1.caption; // секунды
 label2.caption := oldFrom.label2.caption; // милисекунды

вариант 2

Код:

//при закрытии старой формы
// dm - датамодуль переменные param1 и param2 : string
dm.param1 := label1.caption;
dm.param2 := label2.caption;

// при открытии нового окна.
label1.caption := dm.param1;
label2.caption := dm.param2;

[dmdx]

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

Но главное, на новой форме необходимо показать не сам счетчик(тк там будет новый счетчик, с новым отсчетом времени ) а именно время на котором он остановился

создай на главной форме или в модуле переменные и передавай туда а потом бери от туда
вариант 1

Код:

 //при открытии новой формы
 label1.caption := oldFrom.label1.caption; // секунды
 label2.caption := oldFrom.label2.caption; // милисекунды

вариант 2

Код:

//при закрытии старой формы
// dm - датамодуль переменные param1 и param2 : string
dm.param1 := label1.caption;
dm.param2 := label2.caption;

// при открытии нового окна.
label1.caption := dm.param1;
label2.caption := dm.param2;

[adidas]

Не буду создавать еще одну тему, в этой задам свой вопрос. Задали написать программу, которая будет отсчитывать время до часа Х. Допустим, до Нового Года. Желательно, чтобы отображалось в программе сколько осталось дней, часов и минут. Заранее благодарен.

[dmdx]

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

Не буду создавать еще одну тему, в этой задам свой вопрос. Задали написать программу, которая будет отсчитывать время до часа Х. Допустим, до Нового Года. Желательно, чтобы отображалось в программе сколько осталось дней, часов и минут. Заранее благодарен.

что то вроде этого но в днях, а вот чтобы часы и минуты там надо исползовать полный формат даты

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var
 NewYear: TDateTime;
begin
 newYear := StrToDate('01.01.2009');
 label1.Caption := DateToStr(NewYear - Now);

end;

[kaizer131]

в разделе var обьявляю
dm : Tdatamodule;

при закрытии старой формы на строку

dm.param1 := label1.caption;
( вместо param1 задаю свой ) компилятор выдает ошибку, кто знает почему

[kaizer131]

в разделе var обьявляю
dm : Tdatamodule;

при закрытии старой формы на строку

dm.param1 := label1.caption;
( вместо param1 задаю свой ) компилятор выдает ошибку, кто знает почему

[kaizer131]

в разделе var обьявляю
dm : Tdatamodule;

при закрытии старой формы на строку

dm.param1 := label1.caption;
( вместо param1 задаю свой ) компилятор выдает ошибку, кто знает почему

[KOOL]

Не датамодуль а запись. Надо так:

Код:

...

type TMinSec=record
         param1, param2 : string;
       end;
var  dm : TMinSec;

...

[kaizer131]

Не пашет