为了上网课方便计时用,手写一个倒计时。预设需求比较简单:
1、界面直观;(使用TRzLEDDisplay控件)
2、只需设置分和秒;
3、有声音提示;
4、有全局热键功能
实现这种小功能,那必须得请出尘封已久的Delphi XE2 了。
半小时写代码+调试,差不多完工了,做个记录。
完整代码:
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Samples.Spin,
Vcl.ExtCtrls, RzBorder;
type
TForm1 = class(TForm)
LED: TRzLEDDisplay;
btnStart: TButton;
editMin: TSpinEdit;
editSec: TSpinEdit;
Timer1: TTimer;
btnDefault: TButton;
Label1: TLabel;
Label2: TLabel;
procedure editMinChange(Sender: TObject);
procedure btnStartClick(Sender: TObject);
proced