【结帖】功能窗体的关闭

刺青

在窗体A的按钮中判断,如果窗体B运行,则直接关闭窗体B,请问这个功能怎么实现?

窗体B的URL为:Biz:\SQWSFWGLXT_X_\GRJKDAZJMGN.Func

代码如下,在横线那怎么写关闭的代码?
var
  i : integer;
  s : string;
begin
  s := 'Biz:\SQWSFWGLXT_X_\GRJKDAZJMGN.Func';
  for i := 0 to TSystemCore.FuncManager.RunningFuncCount - 1 do
  begin
    if SysUtils.UpperCase(TSystemCore.FuncManager.RunningFuncs.BizClassURL.BizURL.URL) = SysUtils.UpperCase(s) then
    begin
      __________________________?
      break;
    end;
  end;
end;

刺青

填空题!
汗~

lixy

提问错误
窗体B的URL为:Biz:\SQWSFWGLXT_X_\GRJKDAZJMGN.Func
明显不是窗体的url

刺青

呃~~~~~
那这个吧:Biz:\SQWSFWGLXT_X_\GRJKDAZJMGN.Func\GRJKDAZJM.Form

lixy

TSystemCore.FuncManager.RunningFuncs.Terminate

刺青

很好，谢了
可以结贴了。