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;
procedure TForm1.DateTimePicker1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if DateTimePicker1.DroppedDown then keybd_event( VK_ESCAPE, 0, 0, 0 ); end;