DateTimePicket y UpDown

[roman]

Empezado por Lepe

No se podría utilizar cualquier control, sino que debería usarse un SpeedButton, precisamente porque este control no captura el foco del ratón, por tanto, se puede estar en el TDateTimePicker y al pulsar el SpeedButton, el foco sigue estando en el TdateTimePicker, por tanto esas pulsaciones se envían a dicho control.

Tienes razón en esto que comentas. La verdad es que originalmente había puesto un DateTimePicker1.SetFocus justo antes del código expuesto y por alguna razón que ahora no ve claro lo quité Poniendo el foco en el control deseado antes de simular la tecla resolvería el problema con un Button u otro control y creo que es lo que resolvería lo último que plantea tarco35.

// Saludos

[[Lepe]]

Otra solución a la planteada por roman:

En el Onclick del SpeedButton:

Código Delphi [-]
if (Self.ActiveControl is TdatetimePicker) and
   (TDateTimePicker(Self.ActiveControl) = DatetimePicker1) then
  // aqui lanzamos los eventos de teclado
else
   ShowMessage(' Haga clic primero en el Control de fechas');

Quizás en este caso me parece más acertada la solución de roman. Normalmente esos SpeedButtons se colocan cerca del TDateTimePicker, por tanto el usuario al pulsar dicho botón, espera que automáticamente cambie ese control y no otro.

Para hacer más intuitiva la cosa, puedes poner un GroupBox y dentro el TDatetimePicker y los dos SpeedButton, así quedará más claro al usuario como funciona.

Saludos