There is a radiobox choice of 10 sec, 20 sec, 30 sec.
After choosing 1 and clicking the start button, the panel would start counting down from say, 10secs to 0. The problem i have now is to update the panel to reflect the countdown of the timer.
Code: Select all
procedure TForm1.Button1Click(Sender: TObject);
if timer = 10000 then
begin
timer1.Enabled := True;
timer1.Interval := 10000;
end;
end;
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
timer := 10000;
end;
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
timer := 20000;
end;
procedure TForm1.RadioButton3Click(Sender: TObject);
begin
timer := 30000;
end;
