能實現檢查窗口是否存在的函數

能實現檢查窗口是否存在的函數

 

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;