Шаг 29 - Создаем форму сами

Вплоть до этого времени мы рассматривали создание форм только посредством VFP мастера, но при большом желании это можно сделать программно:

frmMyForm = createobject('Form')  && Создаем форму
frmMyForm.Height = 340  && Высота формы
frmMyForm.Width = 650  && Ширина формы
frmMyForm.Caption = 'Моя форма'  && Заголовок формы
*...
frmMyForm.Closable = .t. 
frmMyForm.BorderStyle = 2
frmMyForm.MaxButton = .f.

frmMyForm.Show  && Display the form
frmMyForm.AutoCenter = .t. && Move the form
read events  && Start event processing

Запускаем:

29_1.gif (5393 b)

Работает не совсем честно, но результат получен :-)


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