TEdit - Readonly

[ecfisa]

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.