Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How to create popup!
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00851063
Message ID:
00851586
Vues:
8
>Thanks Zoran - that got me going! I have modified it slightly so that it calls a procedure in the prg file... I am right in thinking I should have DEACTIVATE POPUP myPopup in there? It works fine but I wanted to check...
>
>Also is there anyway to get it to display like a regular menu? What I mean is with the drop shadow and also the items getting highlighted on mouseover?

Chris,

Maybe this will do
LOCAL lcSelected

DEFINE POPUP myPopup SHORTCUT RELATIVE FROM mrow(), mcol() 
DEFINE BAR 1 OF myPopup PROMPT 'First item'  
DEFINE BAR 2 OF myPopup PROMPT 'Second item'
DEFINE BAR 3 OF myPopup PROMPT 'Third item'  
DEFINE BAR 4 OF myPopup PROMPT 'Fourth item'

ON SELECTION POPUP myPopup lcSelected = PROMPT()

ACTIVATE POPUP myPopup 

WAIT WINDOW lcSelected Nowait
Cheers,

Zoran
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform