![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
DateTimePicker [D6, Win2k]
Explorer © (2002-06-28 07:56:00)Мастера!
Пытаюсь обработать TDateTimePicker на изменения.
Пишу такой код:
procedure TFormPayments.DateBeginPayChange(Sender: TObject);
begin
if (DatasModule.QueryDogovor.FieldByName("DateEndDogovor").AsDateTime) < DateEndPay.Date then begin
MessageDlg("OnDatePaid=0",mtError, [mbOk], 0);
DateEndPay.SetFocus;
end
else begin
PereschetOfPay();
end;
end;
При выполнения условия, циклится (начинает мотать дату вперед!).
Где мой промах?
Explorer (2002-06-28 12:25:00) [1]>Kaban ©
В зависимости от выбранной даты, вычисляю кол-во дней.
Kaban (2002-06-28 11:24:00) [2]что происходит в PereschetOfPay()?
Explorer (2002-06-28 11:19:00) [3]Ясно! Видать, TDateTimePicker никто не использует!
Explorer (2002-06-28 09:16:00) [4]Никто, мне в этом вопросе помочь не может?