Comment Spécifier le MaxDate et MinDate pour DBDateTimeEdit ?

Version imprimable

19/12/2018, 14h43
messahel

Comment Spécifier le MaxDate et MinDate pour DBDateTimeEdit ?

Bonsoir a tous;
comment spécifier les paramètres MaxDate et MinDate dans le composant DBDateTimeEdit ?
19/12/2018, 15h09
anapurna

salut

quel version de Delphi ? ... sur la version 7 il n'existe pas de propriété min et max pour ce composant
19/12/2018, 15h33
messahel

J'utilise delphi 10.1
J'ai pas trouvé les parametres et je cherche comment resoudre ce probleme
19/12/2018, 15h50
SergioMaster

Bonjour

Citation:

Envoyé par messahel

le composant DBDateTimeEdit ?

Ce n'est pas un composant standard Delphi ça, ou alors j'ai de mauvais yeux ?
Pourquoi ne pas utiliser l'évènement OnValidate qui permettra de tester

salut

si effectivement les propriétés n'existent pas, c'est qu'il faut les inventer ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Type 
 
TMonDateEditDb = Class(TDateEditDb)
  FDatemin  : TDatetimes;
  FDatemax : TDatetimes;
 ....
  Constructor Create(...)
  Function GetDateMin : TDatetimes;
  Function GetDateMax : TDatetimes;
  Procedure SetDateMin(adate : TDatetimes);
  Procedure SetDateMax(adate : TDatetimes);
  Property  Datemin  : TDatetimes read GetDateMin write SetDateMin
  Property  Datemax  : TDatetimes read GetDateMax write SetDateMax
end;
....
Constructor TMonDateEditDb.Create(...);
begin
  Inherited Create;
  FDatemin  := DateDecDays(now,1); // un jour avant 
  FDatemax := DateIncDays(now,1);  // un jour apres 
  .... 
end;
 
....