例如：设置2个窗体，1个Form1，1个Form21Form1上面放上登陆按钮Button1在Uses 中加入Unit2在Button1的onClick事件中写procedure TForm1.Button1Click(Sender:TObject)；begin Form2.Show; Form1.Hide;end;
