Discussion :

[Argonz]

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 ??

[zemeilleurofgreg]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[banban54]

bonjour

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

à plus

[zemeilleurofgreg]

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 !

[banban54]

bonjoursoir
dixit Seboubou86

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

[Argonz]

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.