| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Помогите [D6, D7]
adolf_99 © (2002-12-13 12:55:00)Как в TDateEdit поставить минимальную дату или мах дату после которой нельзя вібирать дату
ЮЮ (2002-12-13 13:05:00) [1]procedure TForm1.DateEdit1AcceptDate(Sender: TObject; var ADate: TDateTime;
var Action: Boolean);
begin
Action := (ADate >= MyMinDate) and (ADate <= MyMaxDate)
end;
где MyMinDate, MyMaxDate -локальные или глобальные переменные типа TDateTime;
| |
