Прошу по помочь с TMonthCalendar,

[Azamat_k]

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

[John_chek]

Ну можно так к примеру!?

 
procedure TFstart.MonthCalendar1Click(Sender: TObject);
begin
if MaskEdit1.text = '' then
 begin
 MaskEdit2.text := MonthCalendar.date;
 end
else
 begin
 MaskEdit1 .text := MonthCalendar.date;
 end;
end;

Хотя не помнб точно, помоему здесь: MonthCalendar.date-нужно раскладывать дату, по другому.

[Azamat_k]

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

Ну можно так к примеру!?

 
procedure TFstart.MonthCalendar1Click(Sender: TObject);
begin
if MaskEdit1.text = '' then
 begin
 MaskEdit2.text := MonthCalendar.date;
 end
else
 begin
 MaskEdit1 .text := MonthCalendar.date;
 end;
end;

Хотя не помнб точно, помоему здесь: MonthCalendar.date-нужно раскладывать дату, по другому.

Когда расскаладываю MonthCalendar, там всего лишь выходит тип date; Но она не присваевается

[Трофимов Александр]

Надо использовать Edit1:=DateToString(дата) , если я правильно понял проблему.

[dron-s]

DateToString

только DateToStr

[Azamat_k]

Сообщение от dron-s

только DateToStr

перепробовал все методы, все равно не получается..
если у кого поличилось, скиньте код..

[SuperVisor]

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

 
procedure TFstart.MonthCalendar1Click(Sender: TObject);
begin
if MaskEdit1.text = '' then
 begin
 MaskEdit2.text := MonthCalendar.date;
 end
else
 begin
 MaskEdit1 .text := MonthCalendar.date;
 end;
end;

Ай-ай-ай! Какие мы невнимательные! Потом будем спрашивать, почему не работает. Привожу примерный логарифм вышеприведенного кода:
1. Если Поле1 = '' {Пустое},то Идем к 2, если нет, Идем к 4;
2. Поле2 := Дата;
3. Идем к 5;
4. Поле1 := Дата;
5. Конец.
Вывод: реализация задуманного, а именно:

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

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

...не осуществима, если Поле1 не заполнить вручную.
Благо для ее исправления требуется немного времени и услий:
1. меняем пункты 2 и 4 алгоритма;
2. Меняем первый пункт на:
2.1. Если не Поле1 = '';
2.2. Если Поле1 <> ''.
И еще пара вариантов.

Будьте бдительны господа!!! Из-за таких мелких ошибок мы тратим уйму времени и усилий на их поиски!!!

[Azamat_k]

Edit2.text := MonthCalendar.date; проблема в том что она не принимает такой тип даты..

[dron-s]

Edit2.text := MonthCalendar.date; проблема в том что она не принимает такой тип даты..

всё правильно, потому что TEdit имеет тип STRING, а ты пытаешься присвоить тип TDate...
Edit2.text := DateToStr(MonthCalendar.date); - вот так будет нормально

[Speeker]

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

Ай-ай-ай! Какие мы невнимательные! Потом будем спрашивать, почему не работает. Привожу примерный логарифм вышеприведенного кода:
1. Если Поле1 = '' {Пустое},то Идем к 2, если нет, Идем к 4;
2. Поле2 := Дата;
3. Идем к 5;
4. Поле1 := Дата;
5. Конец.
Вывод: реализация задуманного, а именно:
...не осуществима, если Поле1 не заполнить вручную.
Благо для ее исправления требуется немного времени и услий:
1. меняем пункты 2 и 4 алгоритма;
2. Меняем первый пункт на:
2.1. Если не Поле1 = '';
2.2. Если Поле1 <> ''.
И еще пара вариантов.

Будьте бдительны господа!!! Из-за таких мелких ошибок мы тратим уйму времени и усилий на их поиски!!!

А не лучше, чем проверять пустой ли Edit, вести переменную, которая будет считать, какой щелчек первый или второй?