Delphi

Вопрос

Как узнать, была ли создана ли определенная форма?

Ответ

function IndexOfForm (const AClassName: String; const FromIndex:Word):Integer;
var
    i : Integer;
begin
    Result := -1;
   for i := FromIndex to Screen.FormCount-1 do
if (CompareText(Screen.Forms[i].ClassName, AClassName) = 0) then
        begin
      Result := i;
       Break;
        end;
end;

Из конференции Delphi