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

  • Автор темы Azamat
  • Дата начала
Статус
Закрыто для дальнейших ответов.
A

Azamat

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

Barmutik

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

Azamat

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

Barmutik

Гость
#6
такое ощущение что всё очень запущено :)

MaskEdit2.Text:= MonthCalendar.Date;
 
A

Azamat

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

Azamat

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

DIR3ct0r

Гость
#11
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;
 
Статус
Закрыто для дальнейших ответов.