第3个回答 2010-05-20
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;本回答被网友采纳