Мы уже рассматривали вопрос создания исполняемого файла на основе диалогового окна в шаге "Шаг 15 - Birthday (создаем проект)". Давайте теперь попробуем сделать это, но с использованием главного окна VFP.
Итак, меняем текст нашей главной программы mainprog:
*начальные установки set exclusive off set century on set deleted on set date german set safety off set sysmenu to &&скроем меню (остановлюсь на меню позже) *параметры главного окна _screen.WindowState=2 application.Height=_screen.Height application.Width=_screen.Width application.Caption='Финансовая статистика' *глобальные переменные public nWorkMode nWorkMode = 0 *начальные загрузки do form mainform &&запускаем нашу форму on shutdown do quiting &&процедура для выхода read events
Свойство формы ShowWindow должно быть равным 0 (In Screen). Выход их приложения будет теперь не на событие закрытия формы (Unload Event), а на закрытие главного окна VFP по процедуре Quiting:
procedure Quiting() on shutdown clear events cancel close data all clear all return endproc
Лучше, чтобы эта процедура была в виде отдельной программы, включенной в проект, тогда она будет доступна из любого места приложения.
Строим исполняемый файл, запускаем:
Вот и все.