能实现检查窗口是否存在的函数
function checkformexist(FormName: String): Boolean;
var
I: Integer;
begin
Result:= False;
for I := 0 to Screen.FormCount-1 do
begin
if Screen.Forms[I].Name = FormName then
Result:= True;
end;
end;
var
I: Integer;
begin
Result:= False;
for I := 0 to Screen.FormCount-1 do
begin
if Screen.Forms[I].Name = FormName then
Result:= True;
end;
end;