Delphi7窗体间互相调用

form1
uses添加UnitChild
form2.show
不过你的设计有点问题。主窗体应该是程序的mainfrm，loginfrm在程序启动的时候由一个全局变量来判断是否登陆。以下是我找的代码，你可以参考以下

delphi登陆窗体的制作,可以有两种方法,一种是在工程文件中实现登陆窗体的动态调用,另一种就是在主窗体的OnCreate事件中动态创建登陆窗体,两种方法都需要将主窗体设置为Auto-create form,将登陆窗体设置为 Availabel form.

登陆窗体: Form2; 主窗体: Form1;

一、Form2
在Form中Public部分添加一个变量,可以是integer类型,或者boolean型,用来判断是什么时候可以让主窗体显示,比如:
public
frm_show : integer;

单击登录按钮(Button1)
procedure TForm2.Button1Click(Sender: TObject);
begin
if Edit1.Text='aa' then
begin
Frm_show:=1;
Label2.Caption:='用户正确!!'+inttostr(Frm_show);
close;
end
else
begin
Frm_show:=0;
Label2.Caption:='用户不正确!!'+inttostr(Frm_show);
end
end;

二、
Application.Initialize;
Form2:=TForm2.Create(nil);
Form2.ShowModal;
Form2.Free;
if Frm_show=1 then
Application.CreateForm(TForm1, Form1);
Application.Run;