TEdit - Readonly

[marcoszorrilla]

Curiosamente, con este código de prueba en el evento OnChange funciona si éste último se produce.

Código Delphi [-]
procedure TForm1.Edit1Change(Sender: TObject);
begin
Keybd_Event(Vk_Tab,0,0,0);
end;

Un Saludo.

[marcoszorrilla]

También funciona saliendo con Enter, con KeyPreview activado y el siguiente código para habilitar Enter por Tab.

Código Delphi [-]
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
 If (key = #13) and (not (Activecontrol is Tbutton) ) then
  begin
  Perform(WM_NEXTDLGCTL, 0, 0 );
  Key:=#0;
  end;
end;

Es decir, funciona con teclas pero no con el ratón.

Un Saludo.

[Jose_Pérez]

Ciertamente puse como ejemplo ShowMessage. En cualquier caso en la aplicación en desarrollo el problema se produce con el componente TMessageDialog de la librería RX. Evidentemente el problema es el mismo: una llamada a una ventana de forma modal.

Mañana haré pruebas en la oficina y os diré algo.

Saludos y gracias a todos por vuestro interés.

[Jose_Pérez]

Empezado por marcoszorrilla

Curiosamente, con este código de prueba en el evento OnChange funciona si éste último se produce.

Código Delphi [-]
procedure TForm1.Edit1Change(Sender: TObject);
begin
Keybd_Event(Vk_Tab,0,0,0);
end;

Hmmm... no lo entiendo. Hasta donde yo sé, el evento OnChange se produce cuando hay una cambio en el TEdit, pero no es el caso... ¿?

[marcoszorrilla]

Empezado por Jose_Pérez

Hmmm... no lo entiendo. Hasta donde yo sé, el evento OnChange se produce cuando hay una cambio en el TEdit, pero no es el caso... ¿?

Símplemente era una prueba, lógicamente tienes que modificar el edit1 para que funcione. La idea final con la que hice la prueba era ver si enviándole un TAB al componente edit1 funcionaba Edit2, el problema es que como se utiliza el evento OnExit, ya no serviría de nada pues ya hemos abandonado el componente con el ratón y no con teclado, yo buscaba poner ese código en el OnLostFocus, pero el componente no tiene esa propiedad, por lo que la dejé a modo de idea...

Un Saludo

[ecfisa]

Empezado por marcoszorrilla

yo buscaba poner ese código en el OnLostFocus, pero el componente no tiene esa propiedad, por lo que la dejé a modo de idea...

Hola.

Y creo que no estás para nada desorientado. Estuve pensando en lo que explicabas arriba, me parece que cuando se llama a una ventana modal en el evento OnExit, y se fuerza la pérdida del foco, el mouse se despista de donde debe liberar el boton presionado.

Ese es el comportamiento extraño que nota José cuando dice:

Mi sospecha es que al hacer click sobre el segundo TEdit se activa la seleción de texto.

Pero en ese punto ActiveControl ya apunta al siguiente control, entonces lo podemos usar.

Código Delphi [-]
procedure TForm1.Edit1Exit(Sender: TObject);
begin
  ShowMessage(ActiveControl.Name); // demuestra que ActiveControl -> Edit2
  PostMessage(ActiveControl.Handle, WM_LBUTTONUP, 0, 0);
end;

Saludos.

[ecfisa]

Hola.

De todos modos, aunque el código que te puse anteriormente soluciona la situación, no me parece buena idea llamar una ventana modal en el evento OnExit...

Saludos.

[Jose_Pérez]

Esta es la solución.

Código Delphi [-]
PostMessage(ActiveControl.Handle, WM_LBUTTONUP, 0, 0);

Muchas gracias.

[ecfisa]

Empezado por Jose_Pérez

Esta es la solución.

Código Delphi [-]
PostMessage(ActiveControl.Handle, WM_LBUTTONUP, 0, 0);

Muchas gracias.

De nada, me alegro que te haya servido.

Saludos.