请高手帮下忙,设计时一个窗体,运行时可以生成两个或三这样独立的窗体,怎么做啊

Question

设计时一个窗体,运行时可以生成两个或三这样独立的窗体,怎么做啊

Answer 1

多次执行下面代码
var
  frm:TForm1;
begin
  frm := TForm1.Create;
  frm.Show;
end;

Answer 2

var
  frm:TForm1;
begin
  frm := TForm1.Create;
  frm.Show;
end;你建几个frm最好定义几个TForm1的窗口对象,如
var
  frm,frm1,frm2:TForm1;
begin
  frm := TForm1.Create;
  frm.Show;
  frm1 := TForm1.Create;
  frm1.Show;
  frm2 := TForm1.Create;
  frm2.Show;
  frm.free;
  frm1.free;
  frm2.free;
end;