Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Pantalla de login: desactivar el login automático cuando el usuario escribe algo.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@130 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2008-02-21 19:21:08 +00:00
parent dfffba6c4a
commit 83feefce16
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Source/ApplicationBase/Usuarios/Views/uEditorLogin.dfm
View File

@ -1029,6 +1029,7 @@ object fEditorLogin: TfEditorLogin
Height = 21
PasswordChar = '*'
TabOrder = 2
OnKeyPress = edtUserKeyPress
end
object bAceptar: TButton
Left = 208
@ -1056,6 +1057,7 @@ object fEditorLogin: TfEditorLogin
Width = 278
Height = 21
TabOrder = 1
OnKeyPress = edtUserKeyPress
end
object Button1: TButton
Left = 16

9
Source/ApplicationBase/Usuarios/Views/uEditorLogin.pas
View File

@ -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,9 +94,15 @@ begin
Timer1.Enabled := True;
end;
procedure TfEditorLogin.edtUserKeyPress(Sender: TObject; var Key: Char);
begin
// Desactivar el timer si el usuario escribe algo
Timer1.Enabled := False;
end;
procedure TfEditorLogin.FormCreate(Sender: TObject);
begin
FIntentos := 0;
FIntentos := 0;
end;
procedure TfEditorLogin.FormDestroy(Sender: TObject);