Delphi编程登录页面接主页面

显示全部楼层 · 2011-4-2 15:29:28

本人初学Delphi，正在做一个简单的小程序，但是登录页面Form1输入用户名和密码正确之后显示信息“欢迎进入”，然后点击信息上的确定之后进入到Form2，Form2是主界面。可是我的程序怎么做都不对，请哪位高手指点一下：
procedure Tform1.Button1Click(Sender:TObject);
begin
if(Edit1.Text='某某')and(Edit2.Text='111')
Then
Form2.show
else
showmessage('用户名或密码错误')
end;

千问 · 2011-4-2 15:29:28

在Form1(主窗体)的OnCreate事件里写:procedure TForm1.FormCreate(Sender: TObject);beginApplication.ShowMainForm := False; //不显示主窗体Form2:=TForm2.Create(nil); //建立登录窗体Form2.ShowModal; //打开非模式窗体Form2.Free; //释放窗体Application.ShowMainForm := True; Form1.Show; //显示主窗体end;Form2就可以加上密码的判断了,但在登录后要Close掉它.比如说:在Form2上有个按钮,名为登

千问 · 2011-4-2 15:29:28

if(Edit1.Text='某某')and(Edit2.Text='111')Then
Form24.showelse beginshowmessage('用户名或密码错误')end我测试过可以