Conocer origen del foco

[sur-se]

Hola. No sabía muy bien como titular la pregunta.
Tengo un componente propio heredado de un edit. Según el valor de una propiedad que le he añadido, al recibir el foco y ejececutarse el DoEnter, si esa propiedad está a false, entonces ejecuta:

PostMessage((Owner as TWinControl).Handle, WM_NEXTDLGCTL, 0, 0);

para abandonar el campo. La cuestión es que si voy hacia atrás recorriendo los controles, con Shift+Tab, cuando llega a este campo, no me deja seguir hacia atrás. ¿Existe alguna posibilidad de saber si venía hacia atrás? ya que en ese caso ejecutaría el
PostMessage((Owner as TWinControl).Handle, WM_NEXTDLGCTL, -1, 0);
para continuar hacia atrás al recibir el foco.

Gracias por la ayuda.
Un saludo.

[[Al González]]

¡Hola!

Me parece que deseas implementar el mismo uso que tiene la propiedad nativa TabStop.

¿La conoces? ¿Qué diferencia de funcionalidad tendría la nueva propiedad que le has definido al componente?

Saludos.

Al González.

[sur-se]

Hola. Gracias por la respuesta, pero no tiene nada que ver con el TabStop. Si yo pongo el TabStop a false, no entra en los saltos de la tabulación, pero si podría con el ratón entrar en el campo y eso es lo que no quiero.
Básicamente es más parecido a la propiedad enabled, de forma que si deshabilito el campo con esa propiedad, ya no me deja entrar.
El tema está en que no puedo utilizar la propiedad Enabled porque me salta el campo siguiente. Te pongo un ejemplo y quizas puedas darme una solución mejor:
- Pongo tres edits en pantalla en secuencia con el TabStop a true.
- El segundo edit lo pongo enabled:=false
- En el primer edit, programo el evento OnExit de forma que si el valor del text vale, por ejemplo, "S", entonces que habilite el segundo edit, y si no que se quede deshabilitado.
- Ejecuta la aplicación y ponte en el primer edit. Escribe "S" y luego dale al tabulador. En lugar de irse al segundo edit, que he habilitado en el onexit al comprobar el valor del campo, se va al tercer edit, cuando el segundo está habilitado, pero se lo salta.
Este es el problema que quiero solucionar. A ver si me puedes dar una solución mejor. Lo que yo he hecho es poner una propiedad "Accesible" que se pone a true o false, y en el DoEnter si la propiedad es false, entonces mando el foco al siguiente campo con el PostMessage. El único problema que tiene esta solución es que si voy para atrás (shift+tab) cuando llego a ese campo no accesible, como no se si iba hacia adelante o hacia atrás, no se si debo ejecutar el PostMessage con 0 o con 1 como parámetro para ir adelante o atrás. Y ese era el objeto de la pregunta.
Un saludo

[rgstuamigo]

Empezado por sur-se

Hola. Gracias por la respuesta, pero no tiene nada que ver con el TabStop. Si yo pongo el TabStop a false, no entra en los saltos de la tabulación, pero si podría con el ratón entrar en el campo y eso es lo que no quiero.
Básicamente es más parecido a la propiedad enabled, de forma que si deshabilito el campo con esa propiedad, ya no me deja entrar.
El tema está en que no puedo utilizar la propiedad Enabled porque me salta el campo siguiente. Te pongo un ejemplo y quizas puedas darme una solución mejor:
- Pongo tres edits en pantalla en secuencia con el TabStop a true.
- El segundo edit lo pongo enabled:=false
- En el primer edit, programo el evento OnExit de forma que si el valor del text vale, por ejemplo, "S", entonces que habilite el segundo edit, y si no que se quede deshabilitado.
- Ejecuta la aplicación y ponte en el primer edit. Escribe "S" y luego dale al tabulador. En lugar de irse al segundo edit, que he habilitado en el onexit al comprobar el valor del campo, se va al tercer edit, cuando el segundo está habilitado, pero se lo salta.
Este es el problema que quiero solucionar. A ver si me puedes dar una solución mejor. Lo que yo he hecho es poner una propiedad "Accesible" que se pone a true o false, y en el DoEnter si la propiedad es false, entonces mando el foco al siguiente campo con el PostMessage. El único problema que tiene esta solución es que si voy para atrás (shift+tab) cuando llego a ese campo no accesible, como no se si iba hacia adelante o hacia atrás, no se si debo ejecutar el PostMessage con 0 o con 1 como parámetro para ir adelante o atrás. Y ese era el objeto de la pregunta.
Un saludo

Bueno..talves no has configurado bien la propiedad TabOrder de tus edits por eso se salta del primero hacia el tercero, dicha propiedad indica el orden en que los controles van a recibir el foco, el que tenga un tabOrder=0 será el primero, el que tenga TabOrder=1 sera segundo y asi sucesivamente;
Si te das cuenta con eso no necesitas codificar nada en los eventos OnExit o OnEnter.
Saludos...

[sur-se]

Hola.
No es eso. El taborder está bien. Si reproduces el ejemplo verás que no va por ahí la consulta.
A ver, el tema es el siguiente:
- A partir del valor de un campo edit, se trata de habilitar o deshabilitar el siguiente edit en la secuencia.
- Si este primer edit tiene un valor, por ejemplo, "S" entonces se habilita el segundo edit, pero si no permanece deshabilitado.
- El problema es que al comprobar el valor en el OnExit, y habilitar el segundo edit, este no recibe el foco, a pesar de estar habilitado.

Un saludo.

[rgstuamigo]

Empezado por sur-se

Hola.
No es eso. El taborder está bien. Si reproduces el ejemplo verás que no va por ahí la consulta.
A ver, el tema es el siguiente:
- A partir del valor de un campo edit, se trata de habilitar o deshabilitar el siguiente edit en la secuencia.
- Si este primer edit tiene un valor, por ejemplo, "S" entonces se habilita el segundo edit, pero si no permanece deshabilitado.
- El problema es que al comprobar el valor en el OnExit, y habilitar el segundo edit, este no recibe el foco, a pesar de estar habilitado.

Un saludo.

Ahora entiendo tu problema ..un poco mejor.
Lo que puedes hacer es no usar el evento OnExit de tu primer Edit sino mas bien el evento OnChange del primer Edit y colocar (segun lo que mencionas) éste codigo:

Código Delphi [-]
procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.Text='S' then
Edit2.Enabled:=True
else Edit2.Enabled:=False;
end;

.
Con eso ya solucionas tu problema.
Saludos...