一、窗口1中的代码
procedure TForm1.Button1Click(Sender: TObject);
var
frm2:TForm;
begin
frm2 := TForm2.Create(nil);
//if frm2=nil then frm2 = Tfrm2.Create(Application);
frm2.ShowModal;
end;
二、窗口2 中的代码
procedure TForm2.Button1Click(Sender: TObject);
begin
Close;
end;
写在最后:刚学,以上代码测过好用。具体如何,看以后使用情况而定。