Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt: Fenster: Das Hauptmenü eines Fenster ein-/ausblenden PRFellow-Vorlage Autor: Thomas Hölzer Das Hauptmenü eines Fenster ein-/ausblenden Def GetMenu(1) !USER32,GetMenu Def SetMenu(2) !USER32,SetMenu Def DestroyMenu(1)!USER32,DestroyMenu Mit DestroyMenu(hMenu&) kann ein Menü auch zerstört werden Mit SetMenu(0) wird es lediglich vom Fenster getrennt, bleibt aber im Speicher, und kann mit SetMenu(%hwnd,hMenu&) wieder zugewiesen werden. Ein mit SetMenu(%hwnd,0) verstecktes Menü muß beim Programmende immer mit DestroyMenu(Hmenu&) freigegeben werden, sonst ensteht ein Speicherleck. Ein sichtbares Menü wird immer automatisch mit dem Fenster freigegeben. Deshalb wird DestroyMenu im Bsp. nicht verwendet. Declare hMenu& Cls Popup &Datei AppendMenu 1,&Keine Funktion Popup &Bearbeiten Das Handle des Menüs holen Let hmenu&=GetMenu(%hwnd) Print Nach beliebiger Eingabe verschwindet das Menü... WaitInput Cls Print ...und nach der nächsten Eingabe kommt es zurück. Ein Null-Handle als Fenstermenü anmelden SetMenu(%hwnd,0) Waitinput Cls Print Mit beliebiger Eingabe beenden. Das gespeicherte Menühandle zurückschreiben SetMenu(%hwnd,hmenu&) WaitInput
Session-Cookies