Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Remove menu completely
Message
 
 
À
25/04/2001 13:51:28
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de menu & Menus
Divers
Thread ID:
00499733
Message ID:
00500351
Vues:
21
>I am writing an application where the customer does not want to use the standard VFP menu. Instead, he would like large buttons centered on the screen. I can't seem to completely remove the system menu. I thought 'set sysmenu to' would do it but it leaves a single 'Format' selection.

Everyone else gave you the right answer. Here is another way to do it in a completely esoteric (read as - Don't try this at home unless you have too much time on your hands) way.
declare integer GetActiveWindow in user32
declare integer GetMenu in user32 integer hwnd
declare integer SetMenu in user32 integer hwnd, integer hmenu
declare integer DestroyMenu in user32 integer hmenu

local lnh, lnm
lnh = GetActiveWindow()
lnm = GetMenu(lnh)
DestroyMenu(lnm)
SetMenu(lnh,0)
Why do in one line what you can do in 9 lines? < bg >
Larry Miller
MCSD
LWMiller3@verizon.net

Accumulate learning by study, understand what you learn by questioning. -- Mingjiao
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform