loggin

[_fede]

Hola.

Basándome en la estructura de tu código y la solución que propones para implementar la pantalla de password.

procedure TPasswordDlg.BtnEntrarClick(Sender: TObject);
var
Nombre, Password: String;
begin
Nombre := 'Flaco';
Password := 'Flaco20999';

if (EdNombre.Text = Nombre) and (EdPassword.Text = Password) then
frmPrincipal.ShowModal
else
begin
EdNombre.Clear;
EdPassword.Clear;
EdNombre.SetFocus;
BtnEntrar.Enabled := False;

// Usamos, por ejemplo, la propiedad Tag del formulario que INICIALIZAMOS a
// cero para almacenar el número de intentos.
PasswordDlg.Tag := PasswordDlg.Tag + 1;

// Tres intentos erroneos.
if PasswordDlg.Tag = 3 then
ShowMessage('Tres intentos erroneos.');
end;

Close;

end;

Un saludo.

[paufra]

Yo haria una pequeña modificación a tu código:

Código Delphi [-]
// Tres intentos erroneos.
if PasswordDlg.Tag = 3 then
    ShowMessage('Tres intentos erroneos.');
    Close; //<< Añadido
end;

//Close;  << Eliminar

Se supone que se debe cerrar cuando lleve tres intentos, por eso el close debe ir dentro del if, sino se cierra al primer fallo y saca el mensage al 3º (que no saldria nunca)