Прошу помочь с 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;
 

morpheus

скриптописец
07.08.2006
3 915
1
#7
Для: Barmutik
а шо нам кабанам.... :) :D :D

Для: DIR3ct0r
да ... не этично даже както ;)
 
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;
 
Статус
Закрыто для дальнейших ответов.