Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
0
Добавлен:
26.04.2015
Размер:
605 б
Скачать
unit Unit2;

interface

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

type
TForm2 = class(TForm)
MonthCalendar1: TMonthCalendar;
procedure MonthCalendar1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;
implementation

uses Unit1;

{$R *.DFM}

procedure TForm2.MonthCalendar1Click(Sender: TObject);
begin
D:=MonthCalendar1.Date; // вызов даты из календаря
N:=Trunc(D); // число соответствующее дате
FillDate;
end;

end.
Соседние файлы в папке Дата_Время_Demo
  • #
    26.04.20157.89 Кб0Unit1.dfm
  • #
    26.04.20155.84 Кб0Unit1.pas
  • #
    26.04.20153.82 Кб0Unit2.dcu
  • #
    26.04.201551 б1Unit2.ddp
  • #
    26.04.2015626 б0Unit2.dfm
  • #
    26.04.2015605 б0Unit2.pas