Tecistel/Tecsitel_FactuGES2
0
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.Tecsitel_FactuGES2/trunk@302 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-02-21 19:34:50 +00:00
parent 615369f8e1
commit 16a8cfb8c1
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1056,6 +1056,7 @@ object fEditorLogin: TfEditorLogin
Width = 278 Width = 278
Height = 21 Height = 21
TabOrder = 1 TabOrder = 1
OnKeyPress = edtUserKeyPress
end end
object Button1: TButton object Button1: TButton
Left = 16 Left = 16

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

@ -32,6 +32,7 @@ type
procedure Timer1Timer(Sender: TObject); procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure edtUserKeyPress(Sender: TObject; var Key: Char);
private private
FController : IUsuariosController; FController : IUsuariosController;
FIntentos : Integer; FIntentos : Integer;
@ -93,6 +94,12 @@ begin
Timer1.Enabled := True; Timer1.Enabled := True;
end; 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); procedure TfEditorLogin.FormCreate(Sender: TObject);
begin begin
FIntentos := 0; FIntentos := 0;