delphi2007中关闭窗体？

Question

A窗体中点击控件时打开B窗体
application.CreateForm(tfr_people,fr_people);
fr_people.Show;
 
但是在A窗体中连续点击几次时B窗体打开几个，我想能不能已经打开b窗体的情况下不能再打开b窗体呢？请高手帮忙。

Answer 1

用变量保存嘛~有就不再Create的

Answer 2

  if fr_people<>nil then
   fr_people.ShowModal
  else begin
    fr_people:=fr_people.Create(Application);
    fr_people.ShowModal;
  end;

Answer 3

我在delphi project options 里面auto_create forms里面的fr_people窗体移到avairable forms里面后在执行上面的代码通不过我改称
 if  fr_people <> nil   then
    fr_people.ShowModal
    else
    begin
    application.CreateForm(tfr_people,fr_people);
    fr_people.Show;
    end; 
后第一次点击时通过以后再点击时有错误提示不知道怎样通过呢？