Lazarus在一个窗口中打开另一个窗口

一、窗口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;     

 

写在最后：刚学，以上代码测过好用。具体如何，看以后使用情况而定。