unit CalDialog;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Calendar;
type
{ TCalDialogForm }
TCalDialogForm = class(TForm)
MyCalendar: TCalendar;
private
{ private declarations }
public
{ public declarations }
procedure ShowCalendar (var Date:TDateTime);
end;
var
CalDialogForm: TCalDialogForm;
implementation
{$R *.lfm}
uses LclType, crt;
{ TCalDialogForm }
procedure TCalDialogForm.ShowCalendar (var Date:TDateTime);
begin
//MyCalendar.DateTime:= Date;
MyCalendar.DateTime:= 42788;
ShowModal;
Date:= MyCalendar.DateTime;
end;
end.