【delphi开源代码栏目提醒】：网学会员鉴于大家对delphi开源代码十分关注，论文会员在此为大家搜集整理了“MonthCalendar.pas”一文，供大家参考学习

    unit MonthCalendar;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, ComCtrls, StdCtrls, Buttons;
    
    type
      TDateFrm = class(TForm)
        BB_Confirm: TBitBtn;
        BB_Cancel: TBitBtn;
        MC_Date: TMonthCalendar;
        procedure BB_ConfirmClick(Sender: TObject);
        procedure BB_CancelClick(Sender: TObject);
        procedure MC_DateDblClick(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      DateFrm: TDateFrm;
    
    implementation
    
    {$R *.dfm}
    
    procedure TDateFrm.BB_ConfirmClick(Sender: TObject);
    begin  {*****确定按钮单击事件*****}
        DateFrm.Close;  //关闭日期选择窗口
        DateFrm.ModalResult := mrOk; //表示用户确定选择的日期
    end;
    
    procedure TDateFrm.BB_CancelClick(Sender: TObject);
    begin  {*****取消按钮单击事件*****}
        DateFrm.Close;  //关闭日期选择窗口
        DateFrm.ModalResult := mrCancel; //表示用户取消选择的日期
    end;
    
    procedure TDateFrm.MC_DateDblClick(Sender: TObject);
    begin  {*****日期选择控件MonthCalendar双击事件*****}
        DateFrm.Close;  //关闭日期选择窗口
        DateFrm.ModalResult := mrOk; //表示用户确定选择的日期
    end;
    
    end.