Question

delphi中timer的使用

我想使用timer做时间限定，要能在combobox中选择好的时间，比如选择了5分钟，就能限定好5分钟，选择了10分钟，就能限定好10分钟。
最好能给出代码。

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.enabled:=false;
combobox1.Items.Add('5');
combobox1.Items.Add('10');
.....
end;

procedure TForm1.combobox1.change(sender: TObject);
begin
case combobox1.ItemIndex of
0：timer1.intervar:=300000;{5分钟}
1：timer1.intervar:=600000;{10分钟}
.....
end;
timer1.enabled:=true;
end;
procedure TForm1.Timer1(sender: TObject);
begin
Timer1.enabled:=false;//设为false，可以不设，但这样会在你设定的时间后再次运行。
do something;//你要做的事情。
end;