Ver Mensaje Individual
  #5  
Antiguo 06-08-2008
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Una opción es que utilices una variable Month (Integer) que inicializas al abrir el formulario:

Código Delphi [-]
Month := MonthOf(MonthCalendar1.Date);

En el evento OnClick del MonthCalendar te fijas si MonthOf(MonthCalendar1.Date) coincide con el valor de Month. Si no coincide es que se cambio el mes y evitas el llenado del MaskEdit:

Código Delphi [-]
procedure TForm1.MonthCalendar1Click(Sender: TObject);
begin
  if MonthOf(MonthCalendar1.Date) <> Month then
    Month := MonthOf(MonthCalendar1.Date)
  else
    MaskEdit := ...;
end;

Actualizas el valor de Month para que no te lo vuelva a detectar.

// Saludos
Responder Con Cita