TEdit - Readonly

[Casimiro Noteví]

Pero, ¿en qué evento pones ese código?
Ya lo he visto

Pon el edit2.readonly:=false en el onenter del edit2

[Jose_Pérez]

Empezado por Casimiro Notevi

Pon el edit2.readonly:=false en el onenter del edit2

Gracias Casimiro, pero eso tampoco funciona.

[marcoszorrilla]

Si en el OnExit del Edit1 pones el código que dices, por cierto Setfocus sobraría, te tiene que funcionar con el ratón y con la tecla TAb, por cierto acabo de hacer la prueba.

Revisa el código no tengas alguna cosa por ahí que no estés viendo.

Un Saludo.

[Jose_Pérez]

Marcos, insisto en el error. E incluso se produce sin tener la propiedad ReadOnly a True.

Mi sospecha es que al hacer click sobre el segundo TEdit se activa la seleción de texto. Posteriormente se hace la llamada a ShowMessage y, a partir de ahí, todo se lía.

[Casimiro Noteví]

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 Noteví]

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