Cerrar calendario de TDateTimePicker con la tecla Control

[calogero]

Empezado por roman

A mi me ha funcionado así:

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

// Saludos

ya hice pruebas con tu código roman y si me funciona solo que en un formulario aislado, en el formulario donde lo necesito no me funciona pero eso ya es cuention mia tengo que ver que otras teclas me causan conflicto, pero gracias por tu ayuda...