Содержит объектную ссылку на объект Project для активного в настоящее время окна менеджера проекта. Доступно только для чтения на этапе разработки и на этапе выполнения.

Object.ActiveProject

Комментарии

Применимо для: Application Object | _VFP System Variable

Свойство ActiveProject содержит объектную ссылку на объект Project для активного окна менеджера проекта, если более одного окна менеджера проекта открыто. Если Вы пытаетесь обращаться к свойству ActiveProject когда окно менеджера проекта не открыто, генерируется ошибка.

 Для дополнительной информации о проектах, смотри Project Manager Hooks и Development Productivity Tools.

Пример

В следующем примере используется свойство ActiveProject для расчета количества Отчетов и Этикеток в активном проекте. Если проект MyApp не существует, он должен быть создан командой MODIFY PROJECT, после чего можно выполнять пример.
  Копировать Код
MODIFY PROJECT myApp NOSHOW NOWAIT 
nRptsLbls=0
FOR EACH oFile IN _VFP.ACTIVEPROJECT.FILES
   IF INLIST(oFile.Type, "R", "B")  && Report and Label
      nRptsLbls=nRptsLbls+1
   ENDIF
ENDFOR

См. Также