Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How to create popup!
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00851063
Message ID:
00851586
Views:
7
>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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform