monthcalendar.pas

来自「该文件主要应用于档案资料管理」· PAS 代码 · 共 49 行

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.