Возрастающий таймер (Delphi 7)

Posted by obzor under Delphi

Возможно ли сделать возрастающий таймер? В интернете нашел только про убывающий и сделать его легко. А вот возрастающий как?
Кто может объяснить как его правильно сделать и можно ли вообще его сделать ?!

newerow1989

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Label1: TLabel;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  t0,dt:TDateTime;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   Timer1.Enabled:=false;
   Timer1.Interval:=10;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   Timer1.Enabled:=true;
   t0:=Now;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   dt:=Now-t0;
   Label1.Caption:=FormatDateTime('hh:nn:ss,zzz',dt);
end;

end.

DarkMorfius

а как обнулить таймер?

newerow1989

Вторую кнопку создать и прописать

Label1.Caption:='00:00:00,000';
Timer1.Enabled:=false;

тема на форуме

Похожие статьи

• Как сделать динамическим обратный отсчет — таймер обратного отсчета времени
• Передача данных при нажатии на кнопку в течении минуты
• Пример работы с таймером в delphi
• Работа с таймером
• Использование таймера в потоке
• Как вывести слово в Label по одной букве с использованием таймера?
• Игра «Гонки». Движение встречной машины
• Как включить таймер в другой программе?