У меня нет ни baze.db, ни способа установить глобальную переменную path (значение в которой, вообще-то в NULL ставить надо)
Вот вам пример для динамической модальной формы без заморочек с базами
Add(MainForm,8494981,217,98)
{
Position=1
}
Add(ChildFormEx,11099823,343,105)
{
Mode=1
AddHint(63,-24,56,13,Mode)
}
BEGIN_SDK
Add(EditMultiEx,10714414,21,21)
{
WorkCount=#11:doShowModal|
Width=650
Height=508
link(doShowModal,4729526:doShowModal,[(95,27)(95,76)])
}
Add(MainForm,4729526,119,42)
{
Left=35
Top=105
Width=382
Height=249
Position=1
Point(doShowModal)
}
Add(Edit,14230502,189,42)
{
Left=5
Top=110
Width=355
}
Add(ComboBox,5063734,245,147)
{
Left=75
Top=170
Width=280
Height=21
}
Add(Timer,13977288,70,147)
{
Interval=0
AutoStop=1
link(onTimer,9845560:doFor,[])
}
Add(For,9845560,133,147)
{
End=9
link(onEvent,9196804:doStrCat,[])
}
Add(StrCat,9196804,189,147)
{
link(onStrCat,5063734:doAdd,[])
link(Str1,14230502:Text,[])
}
END_SDK
Add(Button,15937869,273,105)
{
Left=135
Top=110
Caption="2"
link(onClick,11099823:doShowModal,[])
AddHint(5,-18,21,13,Caption)
}
user_asm_00.png
Приведено, чтобы вы больше не парили мозги с OnlyOnce, а искали глюки в своей дальнейшей схемотехнике