Форум: "Базы";
Текущий архив: 2003.01.06;
Скачать: [xml.tar.bz2];

Вниз

Помогите   Найти похожие ветки 

← →
adolf_99   (2002-12-13 12:55) [0]

Как в TDateEdit поставить минимальную дату или мах дату после которой нельзя вібирать дату

---

← →
ЮЮ   (2002-12-13 13:05) [1]

procedure TForm1.DateEdit1AcceptDate(Sender: TObject; var ADate: TDateTime;
var Action: Boolean);
begin
Action := (ADate >= MyMinDate) and (ADate <= MyMaxDate)
end;

где MyMinDate, MyMaxDate -локальные или глобальные переменные типа TDateTime;

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2003.01.06;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.007 c