Delphi Mania - Trucos y Sugerencias

Trucos Y SUGERENCIAS

Delphi Mania >> Trucos >> Forms

	Sign In Sign-Up

Pregunta: ¿Cómo puedo mostrar un dialogo para ingresar una clave de acceso antes de antes de arrancar con mi aplicación?

Grupo: Forms

Versiones : D1 D2 D3 D4 D5

Fecha: 07/11/01

Enviado por : Delphimania

Respuesta:

Para empezar debes crear el form para que el usuario ingrese la clave o utilizar el template que Delphi provee (Menu: File\New, Pestaña: Dialogs, "Password Dialog"). Este Form no debe ser autocreable, por lo que deberás pasarlo de la lista de Forms autocreables a la lista de Forms disponibles que se encuentra en las opciones del administrador del proyecto actual (Proyect Manager). Luego deberás escribir el siguiente código en el archivo del proyecto(Proyect Source):

...
begin
  //Crea form de password y lo muestra
  //Si acepta y coincide la clave continua normalmente
  PasswordDlg := TPasswordDlg.Create(Nil);
  if (PasswordDlg.ShowModal = mrOk) And      (PasswordDlg.Password.Text = 'UnaClave')
  then begin
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end
  else
  //Si no acepta o no coincide la clave informa el error     MessageDlg('La clave de acceso ingresada es                 incorrecta.',mtError,[mbOk],0);
end.

Si prestas atención el diálogo de acceso no se destruye. Esto es porque en el evento onClose del TPasswordDlg se fuerza a que este se destruya al cerrarse. El codigo es el siguiente:

procedure TPasswordDlg.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action := caFree;
end;