DateTimePicket y UpDown

[roman]

¿Qué las flechitas up-down del DateTimePicker no aparecen cuando se muestra la hora y no la fecha?

En todo caso, siempre puedes usar cualquier control, por ejemplo un SpeedButton y simular que se oprimen las flechas:

Código Delphi [-]
(* Flecha arriba *)
keybd_event(VK_UP, 0, 0, 0);
keybd_event(VK_UP, 0, KEYEVENTF_KEYUP, 0);

(* Flecha abajo *)
keybd_event(VK_DOWN, 0, 0, 0);
keybd_event(VK_DOWN, 0, KEYEVENTF_KEYUP, 0);

// Saludos

[[Lepe]]

Empezado por roman

En todo caso, siempre puedes usar cualquier control, por ejemplo un SpeedButton y simular que se oprimen las flechas:

Aunque lo has dejado claro, podría haber confusión: 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.

Si usamos un simple TButton, al pulsarlo, el foco estaría sobre el TButton, por tanto esa pulsación la procesaría el TButton, no el TdatetimePicker.

Para más aclaración:

Empezado por tarco35

las flechitas de up y down son muy pequeñas para una pantalla tactil.

Saludos

[tarco35]

Lo he probado y funciona correctamente sobre el componente que tenga el foco, sea el que sea, Grid, TDateTimer, Combo... pro.. ¿habria alguna forma de hacerlo para que solo funcionara para un determinado componente?
Gracias por todo.

[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