Kronometre (deLphi)

[ALpMontana]

Label kullanımına ilişkin basit bir kronometre . . .:hhcool


unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Timer1: TTimer;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
b,a,i:integer;{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Enabled:=true;
button1.Enabled :=false;
button2.Enabled :=true;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
timer1.Enabled:=false;
button2.Enabled :=false;
button3.Enabled :=true;
button4.Enabled :=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
edit1.Text:=inttostr(b) +':' + inttostr(a) + ':'+ inttostr(i);
i:=i+1;
if i=100 then
begin
i:=0;
edit1.Text:='00:' + inttostr(a);
a:=a+1;
end;
if a=60 then
begin
a:=0;
i:=0;
edit1.Text:=inttostr(b);
b:=b+1;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.Enabled:=false;
i:=0;
a:=0;
b:=0;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
button1.Enabled:=true;
button2.Enabled:=false;
button3.Enabled:=false;
button4.Enabled:=false;
timer1.Enabled:=false;
edit1.Text:='00:00:00';

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
timer1.Enabled:=true;
button1.Enabled:=false;
button2.Enabled:=true;
button3.Enabled:=false;
button4.Enabled:=false;
end;

end.