TEdit - Readonly

[Jose_Pérez]

Hola a tod@s:

Después de muchos años programando en Delphi 5, me he llevado una sorpresa sobre el funcionamiento del component TEdit. Para verlo mejor, inicia un nuevo proyecto y coloca dos componentes TEdit sobre un form.

Al comopnente TEdit2 le asignamos la propiedad ReadIOnly a true.

Ahora, en el evento OnExit del TEdit1 escribimos el siguiente código:

Código Delphi [-]
ShowMessage('Hola');
Edit2.ReadOnly:=False;
Edit2.SetFocus;

Ahora ejecutamos el programa. Hay dos modos de pasar de un TEdit a otro: tecla tab, o ratón. Si utilizamos la tercla tab, todo funciona según lo esperado. Sin embargo, si utilizamos el ratón, después de responder a ShowMessage, no podemos ecribir en TEdit2. ¿Alguna solución?

[Casimiro Noteví]

Pero, ¿en qué evento pones ese código?
Ya lo he visto

Pon el edit2.readonly:=false en el onenter del edit2

[Jose_Pérez]

Empezado por Casimiro Notevi

Pon el edit2.readonly:=false en el onenter del edit2

Gracias Casimiro, pero eso tampoco funciona.

[marcoszorrilla]

Si en el OnExit del Edit1 pones el código que dices, por cierto Setfocus sobraría, te tiene que funcionar con el ratón y con la tecla TAb, por cierto acabo de hacer la prueba.

Revisa el código no tengas alguna cosa por ahí que no estés viendo.

Un Saludo.

[Jose_Pérez]

Marcos, insisto en el error. E incluso se produce sin tener la propiedad ReadOnly a True.

Mi sospecha es que al hacer click sobre el segundo TEdit se activa la seleción de texto. Posteriormente se hace la llamada a ShowMessage y, a partir de ahí, todo se lía.

[Casimiro Noteví]

Pues como no pongas todo el código fuente... porque adivinos ya no podemos ser