OnKeyPress, OnKeyUp, OnKeyDown en MonthCalendar

[santiago14]

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.