Joseg, no entiendo nada... Preguntabas por cómo cambiar el punto decimal por coma. Pensábamos que te referías al teclado, en tu programa, que cuando introduzcas el punto decimal del teclado numérico te aparezca coma en vez de punto. Luego, según lo que has dicho, he entendido que tendías muchos CmEdit (por ejemplo) y que te suponía muchos cambios en el código. El Form también tiene "PreKeyPress" en el cual si pones el código de Josber te cambia el punto por la coma en todos los controles de ese Form.
Pero ahora dices que no quieres alterar tu programa. Entonces nos vamos a la configuración de Windows (en adjuntos). Pero cambiar esta configuración significa que todos los programas la comparten. Lo cual, no es aconsejable, si en tu país es la norma es la configuración americana (999,999,999.00) y no la europea (999.999.999,00).
Se puede cambiar por programa y por tiempo limitado dicha configuración de WIndows, pero tampoco es aconsejable si usas otros programas al mismo tiempo.
Yo tengo código para comprobar el punto decimal, si es punto o coma (yo lo hago en el evento "Opened":
Código COBOL:
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 LOCALE-USER-DEFAULT PIC S9(9) COMP-5 VALUE h"0400".
01 LOCALE-SDECIMAL PIC S9(9) COMP-5 VALUE h"0E".
01 RET PIC S9(9) COMP-5.
01 LONG PIC S9(9) COMP-5.
01 BUFFER PIC X(256).
PROCEDURE DIVISION.
MOVE 256 TO LONG
CALL "GetLocaleInfoW" WITH STDCALL USING BY VALUE LOCALE-USER-DEFAULT
BY VALUE LOCALE-SDECIMAL
BY REFERENCE BUFFER
BY VALUE LONG
RETURNING RET.
IF BUFFER(1:1) = ","
DISPLAY "COMA : " BUFFER
ELSE
DISPLAY "PUNTO : " BUFFER
END-IF