Input box on top of menu?

[Miniz]

Hi!

I was just wondering how to get a input box on top of a menu?

Does anyone know how i can do that or if it's possible at all?

Like this:

GUICreate("My GUI menu", 300, 200)

$filemenu = GUICtrlCreateMenu("&File")
$fileitem = GUICtrlCreateMenuItem("Open", $filemenu)
$helpmenu = GUICtrlCreateMenu("&Help")
$saveitem = GUICtrlCreateMenuItem("Save", $filemenu)
$infoitem = GUICtrlCreateMenuItem("Info", $helpmenu)
$exititem = GUICtrlCreateMenuItem("Exit", $filemenu)

$inputbox = GUICtrlCreateInput("", 100, 0, 200, 18)

GUISetState()
While 1
    Switch GUIGetMsg()
        case -3
            ExitLoop
    EndSwitch
WEnd
GUIDelete()

Best regards, Miniz

Edited December 11, 2010 by Miniz

[Realm]

Miniz,

You could use GUICtrlCreateContextMenu(). You can attach a context menu to just about any control including buttons and labels.

Realm

[Miniz]

Miniz,

You could use GUICtrlCreateContextMenu(). You can attach a context menu to just about any control including buttons and labels.

Realm

No that's not what i'm after :/ but thanks anyway

I've attached an image to show what i meant.

[UEZ]

Here something similar:

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <WindowsConstants.au3>

$hGui = GUICreate("My GUI menu", 300, 200)

;~ $filemenu = GUICtrlCreateMenu("&File")
;~ $fileitem = GUICtrlCreateMenuItem("Open", $filemenu)
;~ $helpmenu = GUICtrlCreateMenu("&Help")
;~ $saveitem = GUICtrlCreateMenuItem("Save", $filemenu)
;~ $infoitem = GUICtrlCreateMenuItem("Info", $helpmenu)
;~ $exititem = GUICtrlCreateMenuItem("Exit", $filemenu)

$OptionsBtn = GUICtrlCreateButton("&File", 0, 0, 40, 20,$BS_FLAT)

; At first create a dummy control for the options and a contextmenu for it
$OptionsDummy = GUICtrlCreateDummy()
$OptionsContext = GUICtrlCreateContextMenu($OptionsDummy)
$OptionsCommon = GUICtrlCreateMenuItem("Open", $OptionsContext)
$OptionsFile = GUICtrlCreateMenuItem("Save", $OptionsContext)
GUICtrlCreateMenuItem("", $OptionsContext)
$OptionsExit = GUICtrlCreateMenuItem("Exit", $OptionsContext)


$HelpBtn = GUICtrlCreateButton("&Help", 40, 0, 40, 20, $BS_FLAT)

; Create a dummy control and a contextmenu for the help too
$HelpDummy = GUICtrlCreateDummy()
$HelpContext = GUICtrlCreateContextMenu($HelpDummy)
$HelpWWW = GUICtrlCreateMenuItem("&Info", $HelpContext)

$inputbox = GUICtrlCreateInput("", 80, 0, 220, 20)

GUISetState()
While 1
    $msg = GUIGetMsg()
    Switch $msg
        case -3
            ExitLoop

        Case $OptionsBtn
            ShowMenu($hGui, $msg, $OptionsContext)

        Case $HelpBtn
            ShowMenu($hGui, $msg, $HelpContext)
    EndSwitch
WEnd
GUIDelete()

; Show a menu in a given GUI window which belongs to a given GUI ctrl
Func ShowMenu($hWnd, $CtrlID, $nContextID)
    Local $arPos, $x, $y
    Local $hMenu = GUICtrlGetHandle($nContextID)

    $arPos = ControlGetPos($hWnd, "", $CtrlID)

    $x = $arPos[0]
    $y = $arPos[1] + $arPos[3]

    ClientToScreen($hWnd, $x, $y)
    TrackPopupMenu($hWnd, $hMenu, $x, $y)
EndFunc   ;==>ShowMenu


; Convert the client (GUI) coordinates to screen (desktop) coordinates
Func ClientToScreen($hWnd, ByRef $x, ByRef $y)
    Local $stPoint = DllStructCreate("int;int")

    DllStructSetData($stPoint, 1, $x)
    DllStructSetData($stPoint, 2, $y)

    DllCall("user32.dll", "int", "ClientToScreen", "hwnd", $hWnd, "ptr", DllStructGetPtr($stPoint))

    $x = DllStructGetData($stPoint, 1)
    $y = DllStructGetData($stPoint, 2)
    ; release Struct not really needed as it is a local
    $stPoint = 0
EndFunc   ;==>ClientToScreen


; Show at the given coordinates (x, y) the popup menu (hMenu) which belongs to a given GUI window (hWnd)
Func TrackPopupMenu($hWnd, $hMenu, $x, $y)
    DllCall("user32.dll", "int", "TrackPopupMenuEx", "hwnd", $hMenu, "int", 0, "int", $x, "int", $y, "hwnd", $hWnd, "ptr", 0)
EndFunc   ;==>TrackPopupMenu

I don't know whether it is possible to put an input box over a Ctrl menu!

Br,

UEZ

Edited December 11, 2010 by UEZ

[Bowmore]

To achieve this you will have to use a toolbar as a menu. Have a look at the example for _GUICtrlRebar_SetBarInfo in the help file.

[Miniz]

Seems like more trouble than fun

Thank you all for the help

[funkey]

You could try this, but then the main window will be not active.

$hGui = GUICreate("My GUI menu", 300, 200, -1, -1 )

$inputbox = GUICtrlCreateInput("", 100, 0, 200, 18)

GUICreate("Child", 100, 18, 0, 1, BitOR(0x80000000, 0x00000000), 0x40, $hGui)

$filemenu = GUICtrlCreateMenu("&File")
$fileitem = GUICtrlCreateMenuItem("Open", $filemenu)
$helpmenu = GUICtrlCreateMenu("&Help")
$saveitem = GUICtrlCreateMenuItem("Save", $filemenu)
$infoitem = GUICtrlCreateMenuItem("Info", $helpmenu)
$exititem = GUICtrlCreateMenuItem("Exit", $filemenu)

GUISetState()

GUISetState(@SW_SHOW, $hGui)

While 1
 Switch GUIGetMsg()
  Case -3
   ExitLoop
 EndSwitch
WEnd