Форум » GUI » Динамическое создание форм » Ответить
Динамическое создание форм
Vlad04: Динамическое создание форм, т.е. в процессе выполнения, возможно ?
Ответов - 5
Петр: Возможно.
Vlad04: Небольшой пример
Петр: Можете использовать любой пример MiniGUI Добавьте в compile.demo ключ /S -p (генерировать ppo файлы) и посмотрите на результат К примеру DEFINE WINDOW Form_1 ; AT 0,0 ; WIDTH 640 HEIGHT 480 ; TITLE 'Harbour MiniGUI Demo' ; MAIN ; ON INIT Form_1.Text_1.SetFocus @ 10,10 TEXTBOX Text_1 ; VALUE 11 ; NUMERIC ; VALID This.Value < 10 @ 40,10 TEXTBOX Text_2 ; VALUE 11 ; NUMERIC ; VALID This.Value < 10 ; MESSAGE 'Only values < 10 !' END WINDOW Form_1.Center Form_1.Activate будет выглядеть как _DefineWindow ( "Form_1", "Harbour MiniGUI Demo", 0, 0, 640, 480, .F., .F., .F., .F., .F., {,}, {,}, {|| Domethod ( "Form_1", "Text_1" , "SetFocus" )}, ,, , ,, , , .F. , .F. , .T. , , .F. , ,, , , ,, , , , , , , , , , .F. , , , , .F. , , , , , .F. ) _DefineTextBox( "Text_1",, 10, 10,,, 11,,,,, .F., .F., .T., .F., {|| _DoValid ( GetProperty ( _HMG_SYSDATA[254] , _HMG_SYSDATA[255] , "Value" ) < 10 , )},,,, .F.,, .F. ,.F., .F., .F., .F. , , , , .F. , .F. ,) _DefineTextBox( "Text_2",, 10, 40,,, 11,,,,, .F., .F., .T., .F., {|| _DoValid ( GetProperty ( _HMG_SYSDATA[254] , _HMG_SYSDATA[255] , "Value" ) < 10 , "Only values < 10 !" )},,,, .F.,, .F. ,.F., .F., .F., .F. , , , , .F. , .F. ,) _EndWindow () Пользуясь вашей терминологией в MiniGUI почти все создается динамически.
Петр: Form_1.Center Form_1.Activate DoMethod ( "Form_1", "Center" ) DoMethod ( "Form_1", "Activate" )
Vlad04: Спасибо!
полная версия страницы