Discussion :

[stegos]

Bonjour
J'ai un TEdit avec un évennement DblClick cette évennement place un TDateTimePicker sur cette TEdit pour entré une date...
Question de rendre la vie plus facile a l'utilisateur je voudrais qu'après l'avoir affiché et bien qu'il PopUp tout seul pour voir le calendrier, il choisie sa date et il disparait...

Le Problème c'est le PopUp, je ne trouve pas comment le faire

Merci

[Nono40]

Méthode barbare, mais c'est tout ce que j'ai trouvé :

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.Button1Click(Sender: TObject);
begin
  DateTimePicker1.Visible:=True;
  SendMessage(DateTimePicker1.Handle,WM_LBUTTONDOWN,0
           ,(DateTimePicker1.ClientWidth-10)+(DateTimePicker1.Height Div 2)Shl 16);
  SendMessage(DateTimePicker1.Handle,WM_LBUTTONUP,0
           ,(DateTimePicker1.ClientWidth-10)+(DateTimePicker1.Height Div 2)Shl 16);
end;

Note que si tu ne veux pas utiliser la zone d'édition, utilise directement un TMonthCalendar.

[stegos]

Un gros MERCI

Il vaut mieux barbare que rien du tout
J'avais pensé a un calendrier seul sans le combo mais lorsqu'il apparait pas cadré sur la forme des scroolbar apparaise et ce n'étais pas tres jolie

Encore Merci