Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
On key label puzzler
Message
De
23/08/1999 09:37:08
Kenneth Downs
Secure Data Software, Inc.
New York, États-Unis
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00256086
Message ID:
00256547
Vues:
29
James,

As Fred mentions, VFP doesn't really want you to use ON KEY LABEL.

My own tastes run to putting these functions onto the menu and using menu shortcuts, whose enabled/disabled properties are much easier to control. You would then have a menu bar something like:
DEFINE BAR GoUp OF MyEditMenu PROMPT "Go UP";
  KEY pgup,"PgUp";
  SKIP FOR TYPE("_Screen.ActiveForm.FlagThisFormDoesUpAndDown") = "U"
ON BAR BoUP of MyEditMenu _Screen.ActiveForm.GoUp
Notice that forms that support the UP/DOWN keys would have a property defined "FlagThisFormDoesUpAndDown," while forms that do not support it would not. Once you've done this in your classes, you get the behavior for free throughout your app.

>I am using the ON KEY LABEL to "bind" the up and down arrows to move around a table. I have created two procedures, GO UP and GO DOWN so the user can scroll up and down if they are are the grid or not.
>The form name is searchsub.
>Here's the problem, this works when running in VFP but when I compile the APP and run it from a program I get an error.
>(OBJECT searchsub is not found)
>
>The error happens when you are on the form.
>
>Here's the code:
>ON KEY LABEL UPARROW searchsub.GOUP
>
>Am I doing this completely wrong?
>How do I do this?
>
>Thanks,
>
>Jim
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform