unit1.pas

定时提醒器好东西（带delphi原码）大家看看把

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Grids;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Timer1: TTimer;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    CheckBox1: TCheckBox;
    Edit3: TEdit;
    Label3: TLabel;
    Edit4: TEdit;
    Button2: TButton;
    Button3: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit4;



{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Edit1.text := TimeToStr(Time);//把系统时间赋给 Edit1.text

  if ( TimeToStr(Time) = '11:30:59' ) //当系统时间到11点到30
    then
     ShowMessage('中午下班了。应该打卡吃饭'); //弹出固定内容
  if( TimeToStr(Time)= '13:40:00' )
  then
 ShowMessage('吃饱了，睡好了。是不是又该上班了？');
  if (TimeToStr(Time) = '17:59:59' )
  then
  ShowMessage('累了一天，是不是应该休息了，别忘记打卡');

    if  ( (CheckBox1.Checked =true) and ( Edit1.text=Edit3.text ) )  //当勾选开启动态提醒时和设定时间时
  then
  ShowMessage(Edit4.text);   //弹出动态提醒的内容

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 close
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
form2.show;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 form4.show
end;

end.