monthcalendar.pas

来自「适合新手 绝对精品 档案管理系统 本人花钱购买来的源代」· PAS 代码 · 共 49 行

unit MonthCalendar;

interface

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

type
  TF_Date = 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
  F_Date: TF_Date;

implementation

{$R *.dfm}

procedure TF_Date.BB_ConfirmClick(Sender: TObject);
begin  {*****确定按钮单击事件*****}
    F_Date.Close;  //关闭日期选择窗口
    F_Date.ModalResult := mrOk; //表示用户确定选择的日期
end;

procedure TF_Date.BB_CancelClick(Sender: TObject);
begin  {*****取消按钮单击事件*****}
    F_Date.Close;  //关闭日期选择窗口
    F_Date.ModalResult := mrCancel; //表示用户取消选择的日期
end;

procedure TF_Date.MC_DateDblClick(Sender: TObject);
begin  {*****日期选择控件MonthCalendar双击事件*****}
    F_Date.Close;  //关闭日期选择窗口
    F_Date.ModalResult := mrOk; //表示用户确定选择的日期
end;

end.