子窗口是否打开.txt

大量Delphi开发资料

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;