Adicione 2 Labels, 2 Edits e 1 Button. Altere: Caption do Label1 = “Usuário: ” (sem as aspas) Caption do Label2 = “Senha: ” (sem as aspas) Caption do Button1 = “Login” (sem as aspas) Text dos 2 Edits = “”(sem as aspas)
Clique duas vezes no Button1(Login) e coloque o código:
// Se os campos estiverem em branco, mostra o erro…
if (Edit1.text = '')and(Edit2.text ='') then
begin
Application.MessageBox('Preencha os campos de maneira adequada, por favor.','Erro!',MB_ICONError); Edit1.Clear;
Edit2.Clear;
Edit1.Setfocus;
end;
// Se os campos não estiverem em branco, Continua com a verificação...
if (Edit1.text <> '')and(Edit2.text <> '') then
begin // Verifica se o campo usuário estiver com o valor: vinny e o campo senha: 123…
// Se estiver tudo correto abre o Form2
if (Edit1.text = 'vinny')and(Edit2.text = '123') then
begin
Form2 := Tform2.create(application);
Hide;
Form2.showmodal;
end; // Se tiver algum problema na verificação, mostra uma mensagem e limpa os campos...
if (Edit1.Text <> 'vinny')or(Edit2.text <> '123') then
begin
Application.MessageBox('Sua senha esta incorreta!','Erro!',MB_ICONError);
Edit1.Clear;
Edit2.Clear;
Edit1.Setfocus;
end;
end;
Agora crie um novo form. Para isso: Entre no menu File>New e clique em Form - Delphi for win32
Clique no Form2, clique na aba Events dentro da janela object inpector, procure o evento OnClose, dê um duplo clique no campo vazio ao lado do evento. Irá abrir a janela de código, dentro dessa janela coloque o código:
Halt;
E pronto...Aperte F9 para testar...
Depois disso so personalizar o form2 conforme sua necessidade.
OBS: Se tiver o Delphi 7 os passos serão os mesmos.
Até a próxima!!!
