Таймер на паузу.

[GrindeX]

Нужно поставить таймер на паузу.
Например при нажатии на button1 таймер останавливается, а при button2 продолжается.
Если сделать

procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.enabled:=False;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
timer1.enabled:=True;
end;

То при нажатии на Button1 а затем Button2 таймер начнет отчет с нуля. А мне нужно чтобы он продолжил отчет с того, на чем остановился.

[Neeter]

таймер начнет отчет с нуля. А мне нужно чтобы он продолжил отчет с того, на чем остановился.

Отсчет чего?
Поставить на паузу таймер можно только таким способом, который у вас.

[raxp]

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

[mihali4]

Какие интервалы времени вас интересуют?
Секунды, доли секунд или миллисекунды?
Реализация во многом зависит от этого, как вам уже намекнул уважаемый raxp.

[GrindeX]

Нужны миллисекунды.

[Вадим Буренков]

Нужны миллисекунды.

Этот таймер все равно не точный.

Вот тут посмотри : http://www.interface.ru/fset.asp?Url...d/delzampr.htm
Там внизу страницы теория и листинг использования Win API ,а не стандартного временного таймера с его 55 мс.

[mihali4]

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

Нужны миллисекунды.

Тогда только GetTickCount. Считаете, сколько натикало от запуска до нажатия первого батона, засекаете это время и вычитаете его из того, которое будет в момент нажатия второго батона...
И так далее.

[DeKot]

Попытайтесь в сторону мультимедийного таймера на API.Встречал здесь на форуме.По поводу продолжения отсчета - сам счет таймера надо хранить в переменной и при каждом последующем запуске подсчет продолжать не с нуля, а с этого запомненного значения.

var count: integer = 0; // глобально
procedure Form1.Timer1Timer(Sender: TJbject);
begin
   Inc(count);
   { в переменной count будет общее количество циклов таймера
      count * Interval = фактическое общее время работы таймера }
end;

Или же использовать FormatDateTime(). Смотрите http://www.programmersforum.ru/showt...344#post392344
пост #4.Решается схожая задача по засечке интервала работы части программы.
Что то приблизительное во вложении: