Прошу помочь с Tmonthcalendar

[Azamat]

У меня есть один TMonthCalendar, и два MaskEdit1, MaskEdit2.
Как сделать так, чтобы при первом выборе (щелчке) даты с TMonthCalendar , дата попала первому MaskEdit1. И при втором выборе (щелчке) с TMonthCalendar , дата попала второму MaskEdit2.

 

[Barmutik]

Хмм.. сделайте у себя в программе какой-нить флажок и по каждому OnChange календаря меняйте его .. и в соответствии с флагом заносите информацию с календаря то в один МаскЭдит то в другой...

 

[Azamat]

а дату как переносит? если можно объясните.. Спасибо ..

 

[DIR3ct0r]

MaskEdit.Text:= MonthCalendar.Date;

 

[Azamat]

а второй MaskEdit2? при втором шелчке?

 

[Barmutik]

такое ощущение что всё очень запущено

MaskEdit2.Text:= MonthCalendar.Date;

 

[morpheus]

Для: Barmutik
а шо нам кабанам....

Для: DIR3ct0r
да ... не этично даже както

 

[DIR3ct0r]

Для: DIR3ct0r
да ... не этично даже както

а ну да....
MaskEdit.Text:= DateTimeToStr(MonthCalendar.Date);

теперь этично!

 

[Azamat]

TmonthCal есть функция MultiSelect начальное дата date а конецное дата enddate;
теперь как определить первый щелчок или второй щелчок?

 

[Azamat]

TmonthCal есть функция MultiSelect начальное дата date а конецное дата enddate;
теперь как определить первый щелчок или второй щелчок?

 

[DIR3ct0r]

var
bFirstClick: Boolean;

procedrue Create;
begin
bFirstClick:= True;
end;

procedure MonthCalendar.Click;
begin
if bFirstClick then MaskEdit1.Text:= DateTimeToStr(MonthCalendar.Data)
else MaskEdit2.Text:= DateTimeToStr(MonthCalendar.Data);
bFirstClick:= not bFirstClick;
end;