Modal Window: A solution with Windows API

BackupUser · Post by **BackupUser** » Mon Jun 17, 2002 10:22 am

Restored from previous forum. Originally posted by teachco.

1. Save the WindowID of the main window in a variable, for example MainWinID.
I inserted MainWinID = WindowID() directly after the openWindow-statement.

2. After the openWindow-statement of the modal dialog window I inserted
EnableWindow_(WindowID(),#FALSE)

3. Attention! Don't forget to enable the calling window again, if you close the dialog window. In the event-loop you have to insert
EnableWindow_(WindowID),#TRUE) at every button(-event), which close the dialog window. That's it.

Edited by - teachco on 17 June 2002 11:26:16

PolyVector · Post by **PolyVector** » Thu May 20, 2004 6:22 am

I LOVE YOU!!!

Even tho' this is an ancient post... It's exactly what I needed

Kale · Post by **Kale** » Fri May 21, 2004 1:45 am

Another old example:

Code: Select all

Enumeration
    #WINDOW_0
    #WINDOW_1
    #STRING_0
    #BUTTON_0
    #BUTTON_1
EndEnumeration

Procedure OpenModalWindow()
    CallerID = WindowID(#WINDOW_0)
    CallerNumber = EventWindowID()
    If OpenWindow(#WINDOW_1, 300, 300, 200, 200,  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar, "Modal Window")
        EnableWindow_(CallerID, #FALSE)
        SetWindowPos_(WindowID(#WINDOW_1), #HWND_TOPMOST, 0, 0, 0, 0, #SWP_NOMOVE | #SWP_NOSIZE)
        SetForegroundWindow_(WindowID(#WINDOW_1))
        If CreateGadgetList(WindowID(#WINDOW_1))
               ButtonGadget(#BUTTON_1, 40, 65, 110, 35, "Close")
        EndIf
        Repeat
            EventID.l = WaitWindowEvent()
            Select EventID
                Case #PB_EventGadget
                    Select EventGadgetID()
                        Case #BUTTON_1
                            Quit = 1
                    EndSelect
                Case #PB_EventCloseWindow
                    Quit = 1
            EndSelect
        Until Quit = 1
        CloseWindow(#WINDOW_1)
    EndIf
    EnableWindow_(CallerID, #TRUE)
    SetForegroundWindow_(CallerID)
    UseWindow(CallerNumber)
EndProcedure

;Open main window
If OpenWindow(#WINDOW_0, 200, 200, 200, 200,  #PB_Window_SystemMenu | #PB_Window_TitleBar , "Parent Window")
    If CreateGadgetList(WindowID())
        ButtonGadget(#BUTTON_0, 40, 65, 110, 35, "open new window")
    EndIf
EndIf
Repeat
    EventID.l = WaitWindowEvent()
    If EventID = #PB_EventGadget
        GadgetID = EventGadgetID()
        If GadgetID = #BUTTON_0
            OpenModalWindow()
        EndIf
    EndIf
Until EventID = #PB_EventCloseWindow
End

PolyVector · Post by **PolyVector** » Sun May 23, 2004 9:14 am

That one's neeto burito too

It could be adapted to create clone-ish windows

DARKGuy · Post by **DARKGuy** » Mon May 24, 2004 4:35 am

The code seems very useful but, forgive my ignorance...what's a modal window? XD

PolyVector · Post by **PolyVector** » Mon May 24, 2004 6:19 am

It's a window that takes all user input so that no other window recieves input (until the modal window closes)... Like an error dialog

DARKGuy · Post by **DARKGuy** » Mon May 24, 2004 6:27 am

ohhh ok, now I understand, thanks PolyVector