以下在开始计时的事件中设置。 Timer.interval:=1000;//一秒 Timer.Enabled:=True; //giventime设定的定时时间 onTime事件中: begin if GivenTime=Time then begin beep; Timer.Enabled:=False;//终止计时 end;
end;
beep()真的是用PC SPEAKER发生的吗?
你首先用onpaint画一个表; 在给用户设置的权限,最好用TDateTimePicker; 一个Timer, 之后在Timer里进行判断就可以了; if datetime(now)=TdateTimepicker.datetime then begin beep; ... ... end;
小玩意儿啦!
你只要对用户输入的时间进行判断就可以了;
时间定时?你先看一看delphi的时间的函数以及规则;
Timer.interval:=1000;//一秒
Timer.Enabled:=True;
//giventime设定的定时时间
onTime事件中:
begin
if GivenTime=Time then
begin
beep;
Timer.Enabled:=False;//终止计时
end;
end;
在给用户设置的权限,最好用TDateTimePicker;
一个Timer,
之后在Timer里进行判断就可以了;
if datetime(now)=TdateTimepicker.datetime then
begin
beep;
...
...
end;