【delphi开源代码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-DateChoice_Unit.pas的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
unit DateChoice_Unit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Base_Unit, ComCtrls, Menus, StdActns, ActnList;
type
TfrmDateChoice = class(TfrmBase)
MonthCalendar1: TMonthCalendar;
procedure FormShow(Sender: TObject);
procedure MonthCalendar1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmDateChoice: TfrmDateChoice;
implementation
uses
Common_Unit, StudentSet_Unit, StudentScore_Unit, PracticeSet_Unit;
{$R *.dfm}
procedure TfrmDateChoice.FormShow(Sender: TObject);
begin
inherited;
MonthCalendar1.Date :=Date;
end;
procedure TfrmDateChoice.MonthCalendar1Click(Sender: TObject);
begin
inherited;
Close;
end;
end.