子窗口是否打开.txt

来自「大量Delphi开发资料」· 文本 代码 · 共 11 行

function TfTsgMain.ExistsForm(MDIFormCaption: String): boolean;
var
  i:byte;
begin
  result:=true;
  for i:=0 to MDIChildCount-1 do
  begin
    if MDIChildren[i].Caption=MDIFormCaption
    then result:=false;
  end;
end;