TDateTimePicker + ReadOnly.

Bonjour !!

Je crois que le titre est clair ! Je cherche à rendre un TDateTimePicker ReadOnly. Mais je ne trouve pas comment faire cela. J'aimerais que cela soit un peu calquer sur le ReadOnly des TDBEdit. C'est à dire sélection possible mais pas de changement possible.

Vous avez une idée ??

Bonjour,

en jouant avec les propriétés "MinDate" et MaxDate"

Code:

---

1 2	dtp.MinDate:=now; dtp.MaxDate:=now;

---

bonjour

moi j'utiliserai l'évennement OnkeyPress et retournerai systématiquement key := #0, ce qui revient à interdire le clavier sur ce composant

Code:

---

1 2 3 4

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin key := #0; end;

---

à plus

Citation:

---

moi j'utiliserai l'évennement OnkeyPress et retournerai systématiquement key := #0, ce qui revient à interdire le clavier sur ce composant

---

Je me trompe peut-être, mais je crois que ce que veux Seboubou86, c'est interdire le changement, et avec le Key:=#0, le changement avec la souris est tout à fait possible !

bonjoursoir
dixit Seboubou86

Citation:

---

C'est à dire sélection possible mais pas de changement possible.

---

ce que je considère comme une entrée clavier interdite mais pas souris!

le demandeur éclaicira sans doute son besoins

à plus

Super !! Merci bien de vos réponse qui me plaisent complétement car je n'y avais pas penser.

En effet le but est de bloquer la saisie complète d'une date ou d'une heures. Que cela soit avec le clavier ou avec la souris.

Je pense que l'utilisation du OnKeyPressed est un bonne solution mais il faut encore bloquer les événement clavier.

Je m'en vais tester les MinDate/MaxDate. Je vous tiens au courant.
Merci.

Si y a d'autre idée n'hésité pas.

Alors j'ai testé le système de MinDate et MaxDate. C'est pas mal mise à par les Exception qui sont lancée si l'on resaisi la même date. En fait c'est un solution exploitable mais pas des plus partiques dans mon cas (je veux créer un composant basé qui exploite le TDateTimePicker).

Il me paraitrait pas mal d'arriver à bloquer l'interraction clavier et souris (pour la drop down en mode Date / les flèche en mode Time). Cela simplifierai certainement la gestion.

Mais si aucune solution ne resort à ce niveau, je vais utiliser le MinDate/MaxDate avec un ApplicationEvent.

bonjour
à essayer de mettre "DroppedDown" à false après OnCloseUp pour ne pas prendre en compte une modif via la souris

enfin, pour tout bloquer il y a la propriété enabled!!

à plus

En fait la propriété DroppedDown est une fonction qui permet de connaître l'état de la DropDowned des date.

Petit nouveauté. Pour bloquer la saise par la DorpDown il suffit de faire cela :

Code:

---

1 2 3 4

procedure TForm5.DateTimePicker1CloseUp(Sender: TObject); begin DateTimePicker1.DateTime := FTest; end;

---

La variable FTest représente la valeur sur laquelle le DateTimePicker est figée.

Une petit soucis se pause avec le KeyPress, en fait si on sélectionne la date complète du DateTimePiker avec la souris les événement KeyUp/KeyDown/KeyPress ne sont pas lancé...

En fait je crois que je vais en venir à une solution qui les combine un peut toutes.