Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Top level form only flashes and disappears
Message
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
01295706
Message ID:
01296128
Views:
12
Fred,
we start the program from a large prg that contains our standard set of procedures, about 40 or so. The modeless main form is loaded, the system menu is set(see below) then the READ EVENTS line. It seems that no matter what I do when I try to run a top level form from the system menu it immediately closes even if the menu command calls the click command on a command button on the mainform that runs the form. If I click that command button on the mainform it works. Anyway, I gave up and put icons on the form to run the top level forms and it works just fine.

Any suggestions would be appreciated as this is a new, very small system where I can get away with buttons on the main form. Our other systems are very large with about 200 forms, all model (but we would like to change a number of them to modeless).
Thanks,
John.

>So, where is your READ EVENTS code located?
>
>>Tracy,
>>We use a data driven menu system, developed in house, that loads the system menu. This system controls user access security and lots of other stuff and has worked well for many years.
>>
>>It reads a memo field in the menu table and runs it with a macro:
>>
mCommand = alltrim(menu.cmd)
>>&mCommand
>>The command in this case is simply: DO FORM CAT
>>
>>After reading your post I tried putting a command button on the main form with the same command and the form works properly. I guess I could change our menu program to create a public var (maybe with sys(3)) to hold a name link then hold that somewhere. I was thinking about giving the user a link to all the open forms anyway.
>>
>>Thanks for the input.
>>John
Beer is proof that God loves man, and wants him to be happy. - Benjamin Franklin
John J. Henn
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform