ActiveDelphi

[amufa]

Olá pessoal,

Não estou conseguindo chamar um form Pai através de um form login ( fsNormal).
Até consegui abrir o form principal que é MDI, mas quando chamo outros forms ( filhos ) não abre o form.

Como proceder neste caso ?

[johnny-walker]

Acho mais fácil carregar o form principal e em seguida o form login como showmodal, asim enquanto não resolver o login a pessoa não tem acesso ao formprincipal.


bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I

[amufa]

Johnny.

Seguinte:

Podes me passar o código, pois fiz de todas as maneiras e não consegui. Até abre o form principal, mas quando vou chamar os forms filho não acontece nada. Inclusive, fica travado o sistema.o form style do login fica como ? stayontop, normal ?
qual código colocar no login? Estou fazendo desda forma:

qryLogin.Close;
qryLogin.SQL.Clear;
qryLogin.SQL.Add('SELECT USUARIO, SENHA FROM USUARIO WHERE USUARIO = :USUARIO AND SENHA = :SENHA');
qryLogin.Parameters.ParamByName('USUARIO').Value := edtusuario.Text;
qryLogin.Parameters.ParamByName('SENHA').Value := edtSenha.Text;
qryLogin.Open;

if qryLogin.RecordCount > 0 then
begin
????????
????????

end
else
begin
ShowMessage('Usuário ou senha incorretos');
edtusuario.SetFocus;
end;

abraço

[amufa]

Obrigado pela ajuda, mas já resolvi.....

Chamei no create do formPinricpial o formLogin, deixei o visible do formlogin( fsnormal) como false