delphi中timer的使用

delphi中timer的使用

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