Отправлено: 09.07.08 07:25. Заголовок: Динамическое создание форм

Динамическое создание форм, т.е. в процессе выполнения, возможно ?

 Отправлено: 09.07.08 15:39. Заголовок: Возможно...

Возможно.

 Отправлено: 10.07.08 06:10. Заголовок: Небольшой пример..

Небольшой пример

 Отправлено: 11.07.08 08:50. Заголовок: Можете использовать ..

Можете использовать любой пример 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 почти все создается динамически.

 Отправлено: 11.07.08 08:53. Заголовок: Form_1.Center For..

цитата:

Form_1.Center Form_1.Activate

цитата:

DoMethod ( "Form_1", "Center" ) DoMethod ( "Form_1", "Activate" )

 Отправлено: 12.07.08 19:21. Заголовок: Спасибо!..

Спасибо!