calendaru.pas

来自「包含详细的代码设计,实现图书管理系统功能.是一个很好的实例」· PAS 代码 · 共 52 行

////////////////////////////////
// 单元名：CalendarU          //
// 窗体名：CalendarF          //
// 单元功能：日历窗体         //
// 作者：刘波                 //
////////////////////////////////
unit CalendarU;

interface

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

type
  TCalendarF = class(TForm)
    MonthCalendar1: TMonthCalendar;
    Panel1: TPanel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure WMNCPaint(var Msg : TWMNCPaint); message WM_NCPAINT;
  public
    { Public declarations }
  end;

var
  CalendarF: TCalendarF;

implementation
uses shareU, MainU;
{$R *.dfm}

procedure TCalendarF.WMNCPaint(var Msg: TWMNCPaint);
begin
  inherited;
  draw(CalendarF);
end;
procedure TCalendarF.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  CalendarF:=nil;
  Action:=cafree;
end;

procedure TCalendarF.FormCreate(Sender: TObject);
begin
    MonthCalendar1.Date:=now;
end;

end.