Dúvida - Sistema de Login

[userjin 11]

Oi Pessoal :P

Bem, eu criei um sistema de login (sem banco de dados só pra teste)

e ele é totalmente funcional, quando o Login é certo, ele abre a form2 e fecha o form1..., a senha é camuflada por "Bolinhas" e tal...

aqui o código:

 

procedure TForm1.Button1Click(Sender: TObject);

begin

if edit1.text = 'Teste' then if edit2.text = '1957' then showmessage ('Login Aprovado');

if edit1.text = 'Teste' then if edit2.text = '1957' then form2.show;

if edit1.text = 'Teste' then if edit2.text = '1957' then form1.destroy

 

Legal até ai.

mas minha dúvida, quando bota login errado, ele não mostra nada, como faço pra exibir a mensagem de "Login ou Senha incorreto"?

grato desde já ^^

[Inoxybel 51]

logo após do "end" do if do login coloque

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[userjin 11]

Ta dando erro. não entendi... tem um exemplo não?

[Inoxybel 51]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[userjin 11]

Fodástico cara, funcionou ^.^

O Proximo tópico que voce criar eu dou o agradecer rs

[Zaum 39]

eh nem foi uma ajuda dessas dai mais vamo q vamo