MODAL WINDOW

[ukservice]

Hello,

How is possible to define a Window Modal like a Dialog?.

Thanks.

[StefanHaupt]

Activate Diaog NOWAIT

[ukservice]

Hello,

This for non modal dialog.

I want a Window acting Modal as a Dialog.

Thanks.

[Enrico Maria Giordano]

Please have a look at how rpreview.prg makes a modal window.

EMG

[ukservice]

Hello,

Enrico, I am afraid I don´t see how it works.

Any clue please?.

Thanks.

[Enrico Maria Giordano]

Code: Select all  Expand view

    if ::oDevice:lPrvModal
         if ::oWndMain == nil
            StopUntil( { || ::lExit } )
         else
            StopUntil( { || ::lExit .or. !IsWindow( WndMain():hWnd ) } )
         endif
     endif

EMG

[ukservice]

Thanks.

I didn´t know about StopUntil()

[Antonio Linares]

John,

The risk of calling SysRefresh() (StopUntil() uses it) is that it could process an unwanted event.

So an alternative solution to simulate a modal window is to disable the other windows where we don't want the focus to go to:

oWndOther:Disable()

...

oWndOther:Enable()