Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Dynamic Form Location with do form and objects
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00397220
Message ID:
00397462
Vues:
13
Hi Shawn.

>> >>I would like a form to pup up under a employee code field.
Like a search window. <<

Here ia some code that I use in my Date text box class to pop up a little calendar form so it is positioned under the date text box regardless of where it is. The calendar form takes the paramters in its init and positions itself correctly:
LOCAL luValue, lnTop, lnLeft

*** Calculate where the popup calendar should be instantiated
*** So it pops up directly below the date text box
*** SYSMETRIC( 9 ) is the height of the Form's title bar in case you were curious
lnTop = OBJTOCLIENT( Thisform, 1 ) + OBJTOCLIENT( This, 1 ) + This.Height + 2
lnLeft = OBJTOCLIENT( Thisform, 2 ) + OBJTOCLIENT( This, 2 )

DO FORM GetDate WITH lnTop, lnLeft, This.Value TO luValue
This.Value = luValue
Marcia
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform