Шаг 27 - Приложение на основе главного окна VFP

Мы уже рассматривали вопрос создания исполняемого файла на основе диалогового окна в шаге "Шаг 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

Лучше, чтобы эта процедура была в виде отдельной программы, включенной в проект, тогда она будет доступна из любого места приложения.

Строим исполняемый файл, запускаем:

27_1.gif (1044 b)

Вот и все.


Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Клементьев В.А.