B
bj_2005
Unregistered / Unconfirmed
GUEST, unregistred user!
下面的方法是想用定时器判断当前时间是否到了8点正,但总没有结果,请指点一下.
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if time=strtodatetime('08:00') then showmessage('时间到了');
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if time=strtodatetime('08:00') then showmessage('时间到了');
end;