date.pas

来自「这也是师兄的毕业设计,具体的功能我也不清楚,因为我才大一,请见谅!!!!!!!不」· PAS 代码 · 共 50 行

unit Date;

interface

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

type
  TF_Date = class(TForm)
    MC: TMonthCalendar;
    Image1: TImage;
    SBtOK: TSpeedButton;
    SBtCancel: TSpeedButton;
    procedure SBtOKClick(Sender: TObject);
    procedure SBtCancelClick(Sender: TObject);
    procedure MCDblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Date: TF_Date;

implementation

{$R *.dfm}

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

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

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

end.