A窗口消失B窗口弹出

一、设计窗口  
  
1) file---new--Application，新建一个窗体，设置该窗体的属性：Caption==登录窗口  
2)  
  
procedure TForm1.btn1Click(Sender: TObject);  
begin  
  form2.show;//需要再建立一个form窗口用来作为登录正确后显示的窗体  
  Close;  
  self.Hide;  
end;