Test case:
Create an empty form, check to generate Event procedure, save with name TestForm.pbf. (the procedures created would be OpenWindow_1() and Window_1_Events().
Create a new pb, name for example main_testform.pb and insert this code :
Code: Select all
IncludeFile "testform.pbf"
OpenWindow_1()
Prototype func(ev.l)
Define ev.l
Define *p.func=@window_1_events()
Repeat
ev=WaitWindowEvent()
*p(ev)
Until ev=#PB_Event_CloseWindow