Не могу получить измененную дату от Calendar

[svs39]

Не могу получить измененную дату от компоненты Calendar. Она не готова?
----------------------------------------------------------
WinXP2(SP2),
LAZARUS Версия:0.9.24 бета
дата: 14.11.2007
Ревизия SVN: 12752
i386-win32-win32/win54

[Padre_Mortius]

А каким образом пытаетесь?

[svs39]

procedure TForm2.Calendar1Change(Sender: TObject);
begin
Memo1.Text:='cc=' + DateToStr(Date);
end;

[Vadim]

svs39
А вот так Вы не пробовали:

Код: Выделить всё

Memo1.Text:='cc=' + Calendar1.Date;

?
Ведь функция Date, которую Вы применяете, не имеет никакого отношения к компоненту "Календарь" в котором Вы меняете дату.

[Сергей Смирнов]

procedure TForm2.Calendar1Change(Sender: TObject);
begin
Memo1.Text:='cc=' + DateToStr(Date);
end;

По сути Vadim уже ответил, хочу только немного прояснить ситуацию. Обратите внимание на заголовок процедуры обработчика события: TForm2.Calendar1Change. Это означает, что внутри обработчика контекстом будет именно форма, а не компонент, событие которого обрабатывается. Для получения контекста компонента служит параметр Sender, который, правда, необходимо приводить к соответствующему типу. Ну, или явно использовать свойство конкретного компонента, что и было предложено.

[svs39]

Спасибо за помощь и LAZARUS! Заворот мозгов.

[VirtUX]

Спасибо за помощь и LAZARUS! Заворот мозгов.

Заворот кишек! А мозги нужно тренировать

[svs39]

Заворот кишОк! А мозги нужно тренировать ВСЕМ