Determinar mes a partir de una fecha

[cloayza]

Ahora he probado el codigo y por lo menos en D2007, no parecer comportarce en mala forma.

Tendrias que investigar y nos cuentas.

Saludos

[[Caral]]

Hola
A mi me paso lo mismo, pero no lo comente.
Me parece que es lo que dice ecfisa, el control regresa al datetimepicker y se hace el ciclo, por lo menos en el caso del mensaje.
Lo curioso es que no le pase a cloayza, para mi que el delphi 2007 viene con trampa
Saludos

[ekstase]

Hola amigos, desde ya les agradezco por la valiosa ayuda que me dieron, eh probado la solución de Cloayza y en mi caso funciona perfecto, pero me he quedado con la solución de Chris por el simple hecho de que no tuve que agregar ninguna biblioteca. Gracias nuevamente me sacaron de un gran apuro.

[ecfisa]

Empezado por cloayza

Ahora he probado el codigo y por lo menos en D2007, no parecer comportarce en mala forma.

Tendrias que investigar y nos cuentas.

Saludos

En las pruebas con Trace into nunca sale del evento OnChange. También probé con MessageBox y MessageDlg con el mismo resultado.

La sola llamada a un diálogo modal lo provoca:

Código Delphi [-]
procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
  MessageBox(Handle,'','',MB_OK); // con este da un lindo efecto cascada ...
end;

Busqué en la web y está reportado como un bug en [ embarcadero ].

Un saludo.

[cloayza]

Debo reafirmar lo que dije, no logro reproducir el error que tu comentas.

Las plataformas donde esta reportado el error es

Platform: 95, 98, 2000, NT, XP

Mi entorno es Windows 7, Delphi 2007.

Talvez por ahi va la cosa...
Saludos.

[ecfisa]

Hola.

No lo dudé en ningún momento cloayza, estoy seguro que lo has probado bién. Era sólo para comentar lo que había encontrado sobre el caso.

Yo tengo Windows Vista y Delphi 7, me parece que más que el S.O. es la versión de Delphi...

Habría que ver otras conbinaciones para determinar con seguridad quién es el causante. Pero al menos ya sabemos que existe
en Delphi 6(Caral), Delphi 7 y hasta la versión Vista del S.O.

Un saludo.