Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
TopLevel Form Problem
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00808026
Message ID:
00808031
Vues:
16
>I'm trying to create a little app that runs as a top level form, I'm going to be running this as an EXE. The problem is when I run the exe, I get a flash and then it disappears, if I call up the taskmanager, it's running. I have to kill it from the taskmanager. I have a read events. The main program calls the code to create the form in code. Below is the code.
>
>I have the calling program:
>
>
>* Program: lanMess.prg
>ON SHUTDOWN quit
>_Screen.Visible=.f.
>DO tmess
>READ events
>
>
>
>and the tmess.prg
>
>
>oForm = CreateObject("Tform")
>oForm.Show(1)
>* end of main
>
>DEFINE CLASS Tform As Form
>    Width=520
>    Height=280
>    Caption="LAN Messenger"
>    BorderStyle=2
>    MaxButton=.F.
>    MinButton=.F.
>    Autocenter=.T.
>    WindowState=1
>    ShowWindow=2
>    ADD OBJECT msg As Tmsg WITH Left=5, Top=5
>
>PROCEDURE Init
>    * a mailslot name automatically keeps all LAN users together in a group;
>    * currently "foxapp" name is used, in fact it might be any valid file name
>    * except some reserved names like "Messngr" or "BROWSE"
>    THIS.msg.TurnOn("foxapp")
>ENDDEFINE
>
>
>
>Thanks for any help


Do you have any controls on the form to receive focus e.g. text boxes, command buttons, etc.
censored.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform