Cita:
Empezado por Caro
Hola santiago14, Tienes que utilizar el evento OnKeyUp del MonthCalendar para que te funcione las fechas del teclado y no olvidarte como te dice KeyBoy de colocar la propiedad TabStop=True.
Código Delphi [-]
procedure TForm1.MonthCalendar1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Case key Of
vk_left : MonthCalendar1.Date := MonthCalendar1.Date-1;
vk_Right : MonthCalendar1.Date := MonthCalendar1.Date+1;
vk_Up : MonthCalendar1.Date := MonthCalendar1.Date-7;
vk_Down : MonthCalendar1.Date := MonthCalendar1.Date+7;
end;
end;
Saluditos
|
La cita de arriba es lo que hice pero no funciona, ah si, puse tabStop = true y nada, es como si no ganara el foco el calendario, cuando presiono alguna tecla de desplazamiento sale del calendario, si presiono la opuesta entra nuevamente y ahi si se ejecuta el OnKeyUp. La verdad es que no se porque, no creo que tenga injerencia pero tengo la propiedad KeyPreview en true. Ahora recuerdo, la puse en falso y tampoco funciona.
Bueno, les agradezco y espero encontrar pronto la respuesta.
Saludos.