Fórum Tela de Login #267102

É como se o FormLogin fosse o form principal. Verifique ´Project Options´ qual está selecionado.

O que está selecionado é o FormMain mesmo

e agora? :(

Vc dá um Free depois? Eu acho que vc por engano fez isso no form main...como está criando/exibindo/destruindo a tela de login?

Estou criando a tela do login assim:

procedure TFrmPrincipal.FormCreate(Sender: TObject);
begin
Application.CreateForm(TFrmSenha,FrmSenha);
FrmSenha.Show;
FrmPrincipal.Enabled := false;
end;

Destruindo assim:
FrmPrincipal.Enabled := True;
FrmSenha.Visible := Close;

Mais ai fecha tudo. :(

bom dia, amigo...

seguinte... a lógica do FormLogin é a seguinte, se o usuario e senha forem corretos o form2 será aberto, caso vc feche o formLogin, automaticamente o sistema será fechado, pois vc não pode acessar o sistema simplismente fechando o formLogin...

Outra coisa, o form principal não pode ser o formLogin, pois vc está criando ele no oncreate do form2, entendeu?

coloque o form login como Available e coloque o form2 como Main...
no oncreate do form2 coloque assim

formLogin:=TFormLogin.Create(nil);
formLogin.ShowModal;
formLogin.Free;

no onclose do formLogin digite
Application.Terminate;

Agora vc deve fazer a rotina, ou seja, o usuario clica no botao entrar, se o USUARIO e SENHA estiverem corretos o form login ficará invisível e o form2 será aberto..assim...

Form2.Visible:=True; //onclick do botao entrar
formlogin.Visible:=False; //onclick do botao entrar

se estiverem errados o form login permanecerá até ser fechado ou que seja correto o usuário e senha

SE o usuário fechar o formlogin a aplicação será encerrada
Application.Terminate;

obs.. vc deverá colocar no onclose do form2 assim...
Application.Terminate;

pois o form login ainda está aberto, ele simplesmente está invisível...

qualquer dúvida...fico no MSN o dia todo....

t+

Valew cara funcionou diretinho.

:)