DelphiXe2主窗体调用子窗体

最新推荐文章于 2024-01-12 16:58:31 发布

weixin_30851409

最新推荐文章于 2024-01-12 16:58:31 发布

阅读量320

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/ahroot/archive/2011/10/29/2228653.html

本文详细介绍了在使用DelphiXE2开发过程中，遇到如何在Form1中调用Form2窗体的问题，并通过实例演示了正确的引用方式。包括新建窗体、添加引用、实现跳转逻辑等步骤，帮助开发者解决常见的开发难题。

第一次用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,大家试一试吧。

转载于:https://www.cnblogs.com/ahroot/archive/2011/10/29/2228653.html