System98_

Obrigado pela resposta, mas só funcionou assim: procedure TLogin.Button1Click(Sender: TObject); begin if(edit1.Text = 'teste') and (edit2.Text = 'teste') then begin Login.Hide; Uprincipal.ShowModal; Login.Close; end else messagebox(0,'Usuário ou Senha invalidos, tente novamente','Erro de acesso',0) end;

Boa noite pessoal, estou tendo um pequeno probleminha e gostaria de saber se há algo que eu possa fazer para resolver isto. Bom, estou criando um programinha bem simples. O programinha consiste em duas Unit's, uma chamada de Login e outra de Principal, até aí tudo bem, porém quando faço o Login a Unit Principal vem normalmente, só que a unit de Login ainda fica por trás, mas quando fecho a unit principal fecha os dois. Gostaria de saber como resolver isso para que ao fazer o login corretamente a Unit do Login suma e fique só a principal, Segue a imagem e o código: implementation uses Principal; {$R *.dfm} procedure TLogin.Button1Click(Sender: TObject); begin if(edit1.Text = 'teste') and (edit2.Text = 'teste') then begin Uprincipal.ShowModal; Login.Close; end else messagebox(0,'Usuário ou Senha invalidos, tente novamente','Erro de acesso',0) end; procedure TLogin.Button2Click(Sender: TObject); begin Login.Close; end; procedure TLogin.CheckBox1Click(Sender: TObject); begin if checkbox1.Checked then edit2.PasswordChar := #0 else edit2.PasswordChar := '*' end; procedure TLogin.Timer1Timer(Sender: TObject); begin if (edit1.Text = 'teste') and (edit2.Text = 'teste') then begin image2.Visible := false; image3.Visible := true; end else begin image2.Visible := true; image3.Visible := false; end end; end.

@bngomes @Simon Viegas Muito Obrigado mesmo, me ajudaram bastante!

implementation uses Unit3; {$R *.dfm} procedure TFlogin.SpeedButton1Click(Sender: TObject); begin if(edit1.text='teste') and (edit2.Text='teste')then Image3.Visible := True and fprincipal.showmodal else messagebox(0,'Usuário ou Senha invalido, tente novamente','Erro de Acesso',0) end; procedure TFlogin.SpeedButton2Click(Sender: TObject); begin edit1.Clear; edit2.Clear; edit1.SetFocus; end; procedure TFlogin.SpeedButton3Click(Sender: TObject); begin Flogin.Close; Flogin.Destroy; end; end. Como usar o IF, Else neste caso? Estou tendo problemas. ajudem por favor!