unit1.pas

Delphi中可以用来展示万年历的一个控件,功能比较齐全,能够应用于各种场合

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    cal1: TCalendar;
    btnEdit: TButton;
    lbldate: TLabel;
    se1: TSpinEdit;
    se2: TSpinEdit;
    procedure se1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure se2Change(Sender: TObject);
    procedure cal1Change(Sender: TObject);
    procedure btnEditClick(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 with cal1 do
 lbldate.Caption :='当前日期为：'+IntToStr(cal1.Year)+'  年    '+IntToStr(cal1.Month)+'  月'+ IntToStr(cal1.Day)+' 日　　';
   se1.Text :=IntToStr(cal1.Year);
   se2.Text :=IntToStr(cal1.Month);
end;





procedure TForm1.se1Change(Sender: TObject);
begin
 cal1.Year:=StrToInt(se1.Text);
end;

procedure TForm1.se2Change(Sender: TObject);
begin
  cal1.Month :=StrToInt(se2.Text);
end;

procedure TForm1.cal1Change(Sender: TObject);
begin
  se1.Text :=IntToStr(cal1.Year);
  se2.Text :=IntToStr(cal1.Month);
  lbldate.Caption :='当前日期为：'+IntToStr(cal1.Year)+'  年    '+IntToStr(cal1.Month)+'月'+ IntToStr(cal1.Day)+' 日　　';
end;

procedure TForm1.btnEditClick(Sender: TObject);
begin
  Close;
end;

end.