在form1的implementation下写入
uses unit2;
在form1的按钮中写
form2.show;
form1.hidden();
form2.show();
form2是form1的子窗体:
如果需要form2执行完关闭后,再继续执行form1,用form2的showmodal;
如果需要form2执行过程中,可以操作form1,用form2的show。
var
frm2:TForm2;
begin
frm2:=TForm2.Create(nil);
frm2.show;//不需要form2执行完
try
if frm2.showmodal=mrCancel then;//需要form2执行完
begin
//xxxxx
end;
finally
frm2.free;
end;
end;