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
var
Nombre : string = 'Nombre';
Password: string = 'Password';
procedure TfrmLogin.FormCreate(Sender: TObject);
begin
BitBtnAceptar.ModalResult := mrOK;
BitBtnCancelar.ModalResult := mrAbort;
EditPwd.PasswordChar:= '*' 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') else
ShowMessage('No ingresa');
end;
Tenes que quitar a
frmLogin de:
Project -> Options -> Forms -> Auto-create forms.
Saludos.