DelphiXe2主窗体调用子窗体

第一次用DelphiXE2在创建Form1的时候想调用Form2窗体, 但是发现直接Form2.show;没有效果纠结，原来没有引用

if(edt1.Text='admin')and(edt2.Text='admin')then
  begin
    form1.Hide;
    Form2.Show;
  end else
  begin
    if (edt1.Text<>'admin')or(edt2.Text<>'admin') then
      begin
      Application.MessageBox('账号密码错误','错误',MB_ICONERROR);
      end;
  end;

 

 

以上是我写得一个代码,很简单就是判断输入的账号密码是否正确，如果正确那么就进第二个窗体。

我们先新建一个窗体，文件-新建-VCL-窗体Delphi，由于我用的是DelphiXE2汉化版，我就直接打出汉字，汉化补丁本人已经上传到网盘了，大家可以到我博客中找一下。

我们先到Form1当中双击窗体找到implementation，在下面加入这一句话 uses unit2;，引用unit2.pas。

implementation
uses unit2;
{$R *.dfm}

然后到Form2当中找到implementation,在下面下上uses unit1;引用unit1.pas。

implementation
uses unit1;
{$R *.dfm}

 

 OK,大家试一试吧。