selectdate.~pas

房屋中介软件

unit SelectDate;

interface

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

type
  TFrm_SelectDate = class(TFrm_Base)
    pnlBack: TPanel;
    bbtnOk: TBitBtn;
    bbtnCancel: TBitBtn;
    mcCalendar: TMonthCalendar;
    procedure FormActivate(Sender: TObject);
    procedure bbtnOkClick(Sender: TObject);
    procedure bbtnCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    RetuDate:string;
  end;

var
  Frm_SelectDate: TFrm_SelectDate;

implementation

{$R *.DFM}

procedure TFrm_SelectDate.FormActivate(Sender: TObject);
begin
//  inherited;

end;

procedure TFrm_SelectDate.bbtnOkClick(Sender: TObject);
begin
  inherited;
  RetuDate:=FormatDateTime('yyyy-mm-dd',mcCalendar.Date);
  close;
end;

procedure TFrm_SelectDate.bbtnCancelClick(Sender: TObject);
begin
  inherited;
  RetuDate:='';
  close;

end;

end.