Hola.
El comportamiento se produce al llamar una ventana de forma modal en el evento
OnExit, ni la propiedad
ReadOnly ni el método
SetFocus tienen que ver en el asunto.
Basta con hacer:
Código Delphi
[-]
procedure TForm1.Edit1Exit(Sender: TObject);
begin
with TForm.Create(nil) do ShowModal;
end;
para obtener el mismo resultado.
Sin embargo, no sucede lo mismo si:
Código Delphi
[-]
procedure TForm1.Edit1Exit(Sender: TObject);
begin
with TForm.Create(nil) do Show;
end;
En apariencia pasa cuando otra ventana acapara el foco... habrá que investigar un poco mas. Pero de momento sacando el
ShowMessage, asunto solucionado.
Saludos.