Cita:
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
public
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Edit1Exit(Sender: TObject);
begin
ShowMessage('Hola');
Edit2.ReadOnly:=False;
end;
end.