Cerrar calendario de TDateTimePicker con la tecla Control

[calogero]

Empezado por egostar

Puedes emular la tecla Escape cuando el estado del DateTimePicker1 este en DroppedDown, algo así

Código Delphi [-]
procedure TForm1.DateTimePicker1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if DateTimePicker1.DroppedDown then
     keybd_event( VK_ESCAPE, 0, 0, 0 );
end;

Salud OS.

el codigo que no me funciona solo funciona para abrir el datetimepicker con el control pero no lo cierra con el control

Código Delphi [-]
//todo esto en el evento keydown del datetimepicker
procedure TfrmCompras.dateTimeDiaMesPagoKeyDown(Sender: TObject; 
Var Key: Word; Shift: TShiftState);
begin
  if Key = VK_CONTROL then begin  
      if not dateTimeDiaMesPago.DroppedDown then
        dateTimeDiaMesPago.Perform(WM_KEYDOWN,VK_F4,0);

     //Aqui es donde simulo la tecla escape
      if dateTimeDiaMesPago.DroppedDown then
        dateTimeDiaMesPago.Perform(WM_KEYDOWN,VK_ESCAPE,0);
  end;
end;

ya hice pruebas pero no lo cierra con el control nada mas lo abre