Как узнать, была ли создана ли определенная форма
Как узнать, была ли создана ли определенная форма
Как узнать, была ли создана ли определенная форма 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;
