Cerrar calendario de TDateTimePicker con la tecla Control

[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;

Si nada más pongo keybd_event(VK_ESCAPE, 0, 0, 0 ) actúa conmo si oprimiese Ctrl+Esc de manera que aparece el menú de inicio de Windows y no se cierra el DateTimePicker.

// Saludos

[[egostar]]

Empezado por roman

Si nada más pongo keybd_event(VK_ESCAPE, 0, 0, 0 ) actúa conmo si oprimiese Ctrl+Esc de manera que aparece el menú de inicio de Windows y no se cierra el DateTimePicker.

// Saludos

Te juro por el osito bimbo, que a mi me funciona bien con mi código, y tu código no hace nada.

Salud OS.

[calogero]

Empezado por egostar

Te juro por el osito bimbo, que a mi me funciona bien con mi código, y tu código no hace nada.

Salud OS.

Pues no es por darte la contra egostar pero a mi me pasa igual que a roman me activa el menu inicio...

[[egostar]]

Empezado por calogero

Pues no es por darte la contra egostar pero a mi me pasa igual que a roman me activa el menu inicio...

No pues esta bien, lo importante es que ya quedo, debo ver que carajos hice porque a mi me funcionó y no guarde el proyecto.

Salud OS.

[roman]

Mejor usar el evento OnKeyUp y ya funciona como comenta egostar:

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

// Saludos

[roman]

Je, je, creo que tú estás usando OnKeyUp

// Saludos

[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...