var FrmMain: TFrmMain; H, S, F: string; HF, SF: boolean; CurSecond: integer; hh, mm, ss: Integer; implementation
{$R *.dfm}
function TFrmMain.GetCurTime(CurSecond: integer): string; var m, s: string; begin mm := CurSecond div 60; if mm < 10 then m := '0' + inttostr(mm) else m := inttostr(mm); ss := CurSecond mod 60; if ss < 10 then s := '0' + inttostr(ss) else s := inttostr(ss); Result := m + ':' + s; end;
procedure TFrmMain.tmrTimer(Sender: TObject); begin RzLED.Caption := GetCurTime(CurSecond); dec(CurSecond); end;
procedure TFrmMain.N1Click(Sender: TObject); begin // PlayWave('Email.wav'); tmr.Enabled := True; end;
procedure TFrmMain.N2Click(Sender: TObject); begin
if N2.Caption = '继续' then begin tmr.Enabled := True; N2.Caption := '暂停'; end else begin N2.Caption := '继续'; tmr.Enabled := False; end; end;
procedure TFrmMain.RzLEDDblClick(Sender: TObject); begin if RzLED.Caption = ' END' then RzLED.Caption := '05:00'; tmr.Enabled := not tmr.Enabled; PlayWave('Email.wav');
end;
procedure TFrmMain.N4Click(Sender: TObject); var T: string; begin tmr.Enabled := False; T := InputBox('时间设置', '倒计时的时间(分钟)', '5'); CurSecond := StrToInt(T) * 60; end;
procedure TFrmMain.N3Click(Sender: TObject); begin close; end;