TEdit - Readonly

[Casimiro Notevi]

Pues como no pongas todo el código fuente... porque adivinos ya no podemos ser

[Jose_Pérez]

Empezado por Casimiro Notevi

Pues como no pongas todo el código fuente... porque adivinos ya no podemos ser

La propiedad ReadOnly del TEdit2 está a True.

Con la tecla tab funciona. El problema es cuando hago click con el ratón sobre TEdit2.

¡OJO! Para ver el fallo, hay que ejecutar el programa y probarlo con la tecla Tab, parar el programa (para resertear la propiedad ReadOnly de TEdit2 nuevamente a true), y volverlo a ejecutar y probarlo con el ratón.

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Edit1Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  ShowMessage('Hola');
  Edit2.ReadOnly:=False;
end;

end.

[Casimiro Notevi]

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

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

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

ShowMessage[/i], asunto solucionado.

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