Cerrar calendario de TDateTimePicker con la tecla Control

[[egostar]]

Empezado por calogero

pues eso mismo es lo que hago pero no me funciona no me acepta la tecla escape

Pues es que el código que usas nunca entra, yo ya probe el código que te muestro y me lo hace perfectamente

Esto no funciona

Código Delphi [-]
 
 if Key = VK_CONTROL then begin  
      if notdateTimeDiaMesPago.DroppedDown then
        dateTimeDiaMesPago.Perform(WM_KEYDOWN,VK_F4,0);
      if dateTimeDiaMesPago.DroppedDown then
        dateTimeDiaMesPago.Perform(WM_KEYDOWN,VK_ESCAPE,0);
  end;

Nunca entra a la condición porque F4 es una tecla de control interno del TDateTimePicker, no necesitas validarla, lo que necesitas validar es cuando está en modo DroppedDown.

Como te lo muestro aqui

Código Delphi [-]
  if DateTimePicker1.DroppedDown then
     keybd_event( VK_ESCAPE, 0, 0, 0 );

Empezado por AGAG4

ACLARO!!!!
EgoStar no era para usted, lo que pasa es que calogero es un amigo, donde yo conozco al jefe de él, y aveces nos damos una que otra discusión el JEFE y YO, pero no pasa de alli, yo lo dije de broma pero para el JEFE DE CALOGERO.

Ah bueno, asi estamos en paz....

Edito: Esta bien que ya soy mayorcito, pero hablame de tu, no de usted.

Salud OS