Amigos, me he dado cuenta de que el ThruEvents vuelve a poner el puntero por defecto si antes lo habías cambiado por el de espera.
Es decir, yo hago lo siguiente:
Código COBOL:
ENVIRONMENT DIVISION.
DATA DIVISION.
PROCEDURE DIVISION.
MOVE POW-MP-WAIT TO "MousePointer" OF POW-SELF
MOVE POW-FALSE TO "Enabled" OF POW-SELF
PERFORM UNTIL ...
...
INVOKE POW-SELF "ThruEvent"
END-PERFORM
En el primer ThruEvent vuelve a poner el puntero por defecto y no entiendo por qué.
He intentado volver a hacer
Código COBOL:
MOVE POW-MP-WAIT TO "MousePointer" OF POW-SELF
después del ThruEvent pero hace lo mismo.
¿A alguien más le está pasando? Y si es así, ¿habéis encontrado la solución?
Sin el ThruEvent en bucles largos se congela la ventana y Windows se piensa que se la colgado. Por otro lado, me interesa el puntero de espera porque si no hay que hacer algún tipo de mensaje en plan "Espere por favor..."
