TEdit - Readonly

[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.