@@ -1960,7 +1960,12 @@ Type TWindowsWindow Extends TWindowsGadget
PostGuiEvent EVENT_WINDOWACCEPT,0,0,pt[0],pt[1],path
Next
DragFinish Byte Ptr wp
-
+ Case WM_SYSCOMMAND
+ ' suppress F10 KEYMENU when window has no menu
+ If wp = $F100 And Not (style&WINDOW_MENU) Then ' SC_KEYMENU
+ Return 0
+ End If
+
End Select
Return Super.WndProc(hwnd,msg,wp,lp)