TEdit - Readonly

[Casimiro Noteví]

Y cuando pulsas con el ratón en edit2 ¿está el foco en edit1?

[Jose_Pérez]

Empezado por Casimiro Notevi

Y cuando pulsas con el ratón en edit2 ¿está el foco en edit1?

Efectivamente. El foco está en Edit1

[Casimiro Noteví]

Ciertamente, tiene un comportamiento extraño.

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

[Casimiro Noteví]

Empezado por ecfisa;432321 Pero de momento sacando el [I

ShowMessage[/i], asunto solucionado.

Sí, claro, sin el showmessage no hay problema.

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

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... ¿?