ich möchte in einem Programm das Systemmenü des Programmfensters (also wenn man auf das Programm-Icon in der Titelzeile Klickt) nutzen, um eine kurze Programm-Info anzuzeigen.
Dazu habe ich bei RSBASIC ein paar Zeilen gefunden, die das Systemmenü des Fensters erweitern - nur bekomme ich den Event, der ausgelöst wird (werden sollte) wenn man den Menüeintrag anklickt, nicht gegriffen.
Hier mal der Code:
Code: Alles auswählen
EnableExplicit
Define event
#ProgrammInfo = $4321
; RSBASIC Snipet zum Einfügen einer Menüzeile im Systemenü eines Fensters
If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
AppendMenu_(GetSystemMenu_(WindowID(0),#False),#MF_SEPARATOR,0,"")
AppendMenu_(GetSystemMenu_(WindowID(0),#False),#MF_STRING, #ProgrammInfo, "Programm-Info")
Repeat
event = WaitWindowEvent()
If event = #ProgrammInfo
Debug "Programm-Info"
EndIf
Until event = #PB_Event_CloseWindow
EndIf
Wie geht das?