错误提示:Circular unit reference to 'LoginForm'
程序默认打开form1,form1里面user form2,form1里有个按钮,
点击后弹出登录框form2(Application.CreateForm(TForm2,Form2);
Form2.ShowModal;),
登录成功会关闭form2,并在form1中做标记,请问如何在form2关闭时访问form1中的标记,这个标记可以就是一个edit我的form1中已经包含form2了,我尝试在form2中再use fomr1,于是
这样提示
[Fatal Error] LoginForm.pas(7): Circular unit reference to 'LoginForm'请问该怎么办?
程序默认打开form1,form1里面user form2,form1里有个按钮,
点击后弹出登录框form2(Application.CreateForm(TForm2,Form2);
Form2.ShowModal;),
登录成功会关闭form2,并在form1中做标记,请问如何在form2关闭时访问form1中的标记,这个标记可以就是一个edit我的form1中已经包含form2了,我尝试在form2中再use fomr1,于是
这样提示
[Fatal Error] LoginForm.pas(7): Circular unit reference to 'LoginForm'请问该怎么办?
try
if Form2.ShowModal = mrOK then
begin
// 添加代码, 你要做的标记
end;
Finally
Form2.free;
end;
LoginForm;
尽量不要在implementation 中引用单元.去掉form2 中 引用form1的代码在form1中有如下代码Form2 := TForm2.Create(Application);
try
if Form2.ShowModal = mrOK then
begin
// 添加代码, 你要做的标记
// 如:
edit1.text := form2.edit1.text;
.....
end;
Finally
Form2.free;
end;