diff --git a/Source/ApplicationBase/Usuarios/Views/uEditorLogin.dfm b/Source/ApplicationBase/Usuarios/Views/uEditorLogin.dfm index d0bd09c2..38db70d8 100644 --- a/Source/ApplicationBase/Usuarios/Views/uEditorLogin.dfm +++ b/Source/ApplicationBase/Usuarios/Views/uEditorLogin.dfm @@ -1056,6 +1056,7 @@ object fEditorLogin: TfEditorLogin Width = 278 Height = 21 TabOrder = 1 + OnKeyPress = edtUserKeyPress end object Button1: TButton Left = 16 diff --git a/Source/ApplicationBase/Usuarios/Views/uEditorLogin.pas b/Source/ApplicationBase/Usuarios/Views/uEditorLogin.pas index d274eee1..43671067 100644 --- a/Source/ApplicationBase/Usuarios/Views/uEditorLogin.pas +++ b/Source/ApplicationBase/Usuarios/Views/uEditorLogin.pas @@ -32,6 +32,7 @@ type procedure Timer1Timer(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); + procedure edtUserKeyPress(Sender: TObject; var Key: Char); private FController : IUsuariosController; FIntentos : Integer; @@ -93,6 +94,12 @@ begin Timer1.Enabled := True; end; +procedure TfEditorLogin.edtUserKeyPress(Sender: TObject; var Key: Char); +begin + // Desactivar el timer cuando el usuario empieza a escribir + Timer1.Enabled := False; +end; + procedure TfEditorLogin.FormCreate(Sender: TObject); begin FIntentos := 0;