如何创建多窗体实例

Question

有form1 ，form2，  在form1里面有两个按钮 ，btn1，btn2 ，要求点击btn1后，创建form2，form2里面的变量_pagename='btn1' , 点击btn2，也创建一个form2，form2 里面的变量_pagename='btn2'，但是由btn1创建的form2的变量_pagename还是'btn1'，也就是创建出来的多个form2各自有各自的_pagename变量。 求救，多谢！～～

Answer 1

这个，好象很简单吧首先在Form1所在单元引用Form2所在单元，然后将Form2去除自动创建procedure TForm1.btn1Click(Sender: TObject);
var
  Frm2 : TForm2;
begin
  Frm2 := TForm2.Create(application);
  frm2.pagename := 'btn1';
  frm2.Show;
end;procedure TForm1.btn2Click(Sender: TObject);
var
  Frm2 : TForm2;
begin
  Frm2 := TForm2.Create(application);
  frm2.pagename := 'btn2';
  frm2.Show;
end;在Form2的OnClose中写入procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   Action := caFree;
end;