Re: Some help with TTimer function please.
Posted: Sun Feb 07, 2010 3:53 pm
its basically setting var timer := 10, and use a timer to -1 every 1000 interval while updating the caption.
Code: Select all
procedure TForm1.Button1Click(Sender: TObject);
begin
Label2.Caption :='Active';
Button1.Enabled := False;
Button2.Enabled := True;
Timer1.Enabled := True;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Label2.Caption :='Inactive';
Button1.Enabled := True;
Button2.Enabled := False;
Timer1.Enabled := False;
end;
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
timer := 10;
end;
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
timer := 20;
end;
procedure TForm1.RadioButton3Click(Sender: TObject);
begin
timer := 30;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
timer := timer - 1;
Panel1.Caption := IntToStr(timer);
if timer = 0 then
begin
Timer1.Enabled := False;
end;
end;