Ver Mensaje Individual
  #5  
Antiguo 12-01-2013
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Melissa_12.

Si el form es un inicio de seción a la aplicación, revisa estos enlaces:

Si se trata de una verificación para permitir o negar el ingreso a determinada acción u otro formulario, podes hacer:

Formulario login:
Código Delphi [-]
...
var
  frmLogin: TfrmLogin;

implementation 

(* Aquí declaro las variables Nombre y Password como ejemplo.
   En tu caso, supongo, obtendras los datos de un archivo *)
var
  Nombre  : string = 'Nombre';
  Password: string = 'Password';

procedure TfrmLogin.FormCreate(Sender: TObject);
begin
  BitBtnAceptar.ModalResult  := mrOK;
  BitBtnCancelar.ModalResult := mrAbort;
  EditPwd.PasswordChar:= '*' //(si no deseas mostrar lo que escribe)
end;

procedure TfrmLogin.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if (EditName.Text <> Nombre)or(EditPwd.Text <> Password) then
    ModalResult:= mrAbort;
  Action:= caFree
end;

procedure TfrmLogin.FormDestroy(Sender: TObject);
begin
  frmLogin:= nil;
end;
end.

Formulario que llama previamente a frmLogin para permitir (o no) el acceso a determinada acción:
Código Delphi [-]
procedure TfrmMain.ButtonAccedeClick(Sender: TObject);
begin
  frmLogin:= TfrmLogin.Create(nil);
  if frmLogin.ShowModal = mrOk then
    ShowMessage('Ingresa')  // En tu caso abrir el otro form
  else
    ShowMessage('No ingresa'); 
end;
Tenes que quitar a frmLogin de: Project -> Options -> Forms -> Auto-create forms.

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 12-01-2013 a las 21:17:33.
Responder Con Cita