Получить выбранную дату

[Vladya]

Добрый день, подскажите пожалуйста как можно получить выбранную дату в компоненте календарь (стандартный компонент Delphi)? тоесть мне надо что бы когда пользователь выберет определенную дату то скажем, в лейблы программа записала выбранный месяц, день и год?
Такое вообще реально сделать?

[Roof]

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, Calendar;

type
  TForm2 = class(TForm)
    Calendar1: TCalendar;
    Label1: TLabel;
    procedure Calendar1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Calendar1Change(Sender: TObject);
begin
Label1.Caption:= DateToStr(Calendar1.CalendarDate);
end;

end.

Также есть у Calendar свойства Day, Month, Year.

[baster128]

Если ты имеешь ввиду компонент TMonthCalendar, то свойство Date. Я старый человек и до сих пор пишу на семерке, но я думаю в аналогичных компонентах более современных версий это свойство называется также.

[Vladya]

Сообщение от baster128

Если ты имеешь ввиду компонент TMonthCalendar, то свойство Date. Я старый человек и до сих пор пишу на семерке, но я думаю в аналогичных компонентах более современных версий это свойство называется также.

я тоже на семерке сижу, вот только у меня что то не получается вытянуть дату по отдельности, тоесть отдельно день месяц и год.
Если так как мне надо нельзя сделать то у меня немножко другой вопрос, как выбранную в календаре дату установить как системную? Тоесть сменить дату?

[Roof]

2 Vladya - название компонента напиши. Calendar, MonthCalendar или еще какой?

[Vladya]

Сообщение от Roof

2 Vladya - название компонента напиши. Calendar, MonthCalendar или еще какой?

Стандартный компонент Delphi 7 - MonthCalendar

[Roof]

procedure TForm2.MonthCalendar1Click(Sender: TObject);
begin
  Label1.Caption := DateToStr(MonthCalendar1.Date);
  Label2.Caption := FormatDateTime('dd', MonthCalendar1.Date);
  Label3.Caption := FormatDateTime('mm', MonthCalendar1.Date);
  Label4.Caption := FormatDateTime('yyyy', MonthCalendar1.Date);

end;

Это тебе надо?

Если так как мне надо нельзя сделать то у меня немножко другой вопрос, как выбранную в календаре дату установить как системную? Тоесть сменить дату?

А зачем тебе это? По-моему это не в ту степь вообще.

[Vladya]

А зачем тебе это? По-моему это не в ту степь вообще.

у меня по заданию программа должна иметь функция изменения даты и времени...

procedure TForm1.sButton13Click(Sender: TObject);
Var vsys: _SYSTEMTIME;
begin
 vsys.wHour:=StrToInt(Edit3.Text);
 vsys.wMinute:=StrToInt(Edit4.Text);
 vsys.wSecond:=StrToInt(Edit5.Text);
 vsys.wYear:=StrToInt(FormatDateTime('yyyy', MonthCalendar1.Date));
 vsys.wMonth:=StrToInt(FormatDateTime('mm', MonthCalendar1.Date));
 vsys.wDay:=StrToInt(FormatDateTime('dd', MonthCalendar1.Date));
 SetSystemTime(vsys);
end;

вопрос: что у меня сдесь не правильно при смене времени?
Дата меняется нормально а вот время устанавливается произвольное не те значения которые записаны в едитах.

уже разобрался, все работает.

Спасибо всем за помощь!!!

[Dj_SheLL]

А как сделать чтобы по двойному щелчку на дате получать дату?

[b.a.c777]

Здравствуйте! Подскажите пожалуйста как сделать так чтобы при смене месяца в котором был создан компонент MonthCalendar1 дата не возвращалась к дате создания.
то есть например MonthCalendar1 был создан 09/02/13 и в следующем месяце при запуске календаря он возвращается к этой дате.