ActiveDelphi

[Lore]

Eu criei no form1 uma tela de login e senha onde entrar com o usuario x e com senha y irá chamar o form principal.

if (edit1.text =x) and (edit2.text = y) then
begin
formprincipal.show;
end
else
showmessage('Erro ao logar no sistema');
end;

Ele até vai chama tudo certo o form principal mas o form 1 que é do login e senha ainda fica aparecendo. Tentei mudar assim:

(edit1.text =x) and (edit2.text = y) then
begin
formprincipal.show;
formsenha.hide;
end
else
showmessage('Erro ao logar no sistema');
end;

Mas dá erro , o que faço ?

[pepis]

[pepis]

mais pq o form login é o principal?..eu prefiro chamar o form login pelo form principal dae se o login estiver incorreto eu do um Application.Terminate...vlw

[Lore]

Eu tentei fazer isso formsenha.visible:=false;

Mas dá erro diz que o focu não pode dar em um form invisivel uma coisa assim . Esse é o codigo completo veja:

procedure Tfrmsenha.BitBtn1Click(Sender: TObject);
begin
if (edit1.Text = 'X') and (edit2.Text = 'Y') then
begin
frmformulario.Show;
end
else
showmessage('Usuario ou Senha Errado ! ');
edit1.Clear;
edit2.Clear;
edit1.SetFocus;
End;

end.


E esse form é o form principal sim teria uma outra forma de eu tá fazendo isso ?

[Lore]

Pronto consegui mas não entendi o porque , eu comentei a linha
edit1.SetFocus; ficando assim:

procedure Tfrmsenha.BitBtn1Click(Sender: TObject);
begin
if (edit1.Text = 'X') and (edit2.Text = 'Y') then
begin
frmformulario.Show;
end
else
showmessage('Usuario ou Senha Errado ! ');
edit1.Clear;
edit2.Clear;
// edit1.SetFocus;
End;

E coloquei o formsenha como invisivel , não entendi o porque dava erro !!!

[pepis]

[pepis]

ah outra coisa, ao inves de show, vc bota sohowmodal..

[pepis]

[marcellomm]

Oi, experimenta o UserControl. Vc vai ver que vale a pena...

[pepis]

[Lore]

Viu pepis eu coloquei no form2 no evento onclose assim :

frmsenha.close;

e deu certo , eu não conheço esse negocio de UserControl mas vou procurar .

Valeu ai !!!

[marcellomm]

Eu uso ele o delphi7 sem problemas. Descompacta ele e coloca na pasta bin do delphi7. Depois abre o delphi e fecha o projeto que abre como project1 clicando no Close All. Ae no menu de instalação pede pra instalar um novo pacote. Abra o pckage do User que esta na pasta bin e compila. Depois é só confirmar a instalação. Ahh confirme o endereço do pacote quando o delphi perguntar seguindo o caminho do pacote na opção libary do delphi.

[pepis]