Halan Lopes

no loginform está assim procedure TLoginfrm.FormCreate(Sender: TObject); begin Table1.Active := False; Table1.Active := True; EditSenha.Clear; end; e no projeto assim begin Application.CreateForm(TFichariofrm, Fichariofrm); Application.CreateForm(TLoginfrm, Loginfrm); Loginfrm.ShowModal; end;

deu um erro dizendo Cannot make a visible window modal, que faço?

oi Graymalkin! o problema é o seguinte, no menu coloquei a opção login, no onclick dele coloquei! Loginfrm.show; quando a janela de login aparece, insiro os dados e clico em OK para confirmar o login nada acontece, e a janela do login não desparece, e pra sair dessa janela tenho que fechar o programa! é justamente o que quero fazer, logar sem precisar fechar o programa! veja como está o comando do button OkClick! procedure TLoginfrm.BitBtn1Click(Sender: TObject); var achou : boolean; begin if DBLookupComboBox1.Text = '' then begin ShowMessage('Informe o Nome do Usuário...'); DBLookupComboBox1.SetFocus; Exit; end; achou := Table1.Locate('Login',Trim(DBLookupComboBox1.Text),[]); if achou then begin if EditSenha.Text = '' then begin ShowMessage('Informe a Senha do Usuário...'); EditSenha.SetFocus; Exit; end; if EditSenha.Text <> Table1.FieldByName('Senha').AsString then begin ShowMessage('Senha incorreta...'); EditSenha.Text := ''; EditSenha.SetFocus; Exit; end else Application.Run; end; e ai tem como me ajudar?

como trocar de usuario sem precisar fechar o programa? já tendo o form de login pronto!