Вплоть до этого времени мы рассматривали создание форм только посредством 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
Запускаем:
Работает не совсем честно, но результат получен :-)