登陆界面　login

简单的登陆写法。适合初学者。 implementation uses main; {$R *.dfm} procedure TForm2.Button1Click(Sender: TObject); begin if Edit1.Text = 'mking' then begin Form2.Free; Application.CreateForm(TForm1,Form1); Application.Run; end else begin ShowMessage('密码错误！'); Close;