ds.pas

来自「小巧而强大！及少的内存和CPU占用集合了超多功能:万年历、世界时钟、定时运行、定」· PAS 代码 · 共 116 行

unit DS;

interface

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

type
  TForm2 = class(TForm)
    CnCalendar1: TCnCalendar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure CnCalendar1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure CnCalendar1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  yyyy, mm, dd: Word;


implementation

{$R *.dfm}

procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
   CnCalendar1.PrevMonth;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  DecodeDate(Now, yyyy, mm, dd);
  label1.Caption:=inttostr(CnCalendar1.Year)+'-'+
                  inttostr(CnCalendar1.Month)+'-'+
                  inttostr(CnCalendar1.Day);
end;

procedure TForm2.SpeedButton7Click(Sender: TObject);
begin
   CnCalendar1.Day:=dd;
end;

procedure TForm2.SpeedButton3Click(Sender: TObject);
begin
   CnCalendar1.PrevYear;
end;

procedure TForm2.SpeedButton4Click(Sender: TObject);
begin
   CnCalendar1.NextYear;
end;

procedure TForm2.SpeedButton2Click(Sender: TObject);
begin
   CnCalendar1.NextMonth;
end;

procedure TForm2.SpeedButton5Click(Sender: TObject);
begin
   CnCalendar1.Year:=yyyy;
end;

procedure TForm2.SpeedButton6Click(Sender: TObject);
begin
    CnCalendar1.Month:=mm;
end;

procedure TForm2.CnCalendar1Change(Sender: TObject);
begin
  label1.Caption:=inttostr(CnCalendar1.Year)+'-'+
                  inttostr(CnCalendar1.Month)+'-'+
                  inttostr(CnCalendar1.Day);

end;

procedure TForm2.Button1Click(Sender: TObject);
begin
    form2.ModalResult:=4;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
    form2.ModalResult:=1;
end;

procedure TForm2.CnCalendar1DblClick(Sender: TObject);
begin
   form2.ModalResult:=4;
end;

end.