不能重复显示同一个被调用的窗体 (10分)

不能重复显示同一个被调用的窗体
如form1调用form2 已经弹出了一个form2 在点的时候 不会再出现一个form2
这样可以 但是我还不太清楚
那位在帮助解释一下 在线等

var B_GV_Form_SoftSet :boolean;
procedure TForm_Main.Menu_SoftSetClick(Sender: TObject);
begin
if B_GV_Form_SoftSet then //逻辑变量为假则已创建,尚未显示该窗口
begin
Form_SoftSet.show
//非模式显示
end
else
begin
application.CreateForm(tForm_SoftSet,Form_SoftSet)
//创建该种窗口
Form_SoftSet.show
//非模式显示
B_GV_Form_SoftSet:=true
//用逻辑变量记录已创建该窗口
end;
end

procedure TForm1.Form_SoftSetClose(Sender: TObject;var Action: TCloseAction);
begin
Action :=caFree;
B_GV_Form_SoftSet:=false;
end

这样写已经可以实现
你所需要的功能

接受答案了.