how to switch from modal dialog to non modal?

[ShumingWang]

Hi, How to switch from modal dialog to non modal dialog and form non modal to modal dialog ?
TKS!
Shuming Wang

[Antonio Linares]

Shuming,

This example may help you:

modalno.prg

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oWnd

   DEFINE WINDOW oWnd

   ACTIVATE WINDOW oWnd ;
      ON INIT BuildDlg( oWnd )

return nil

function BuildDlg( oWnd )

   local oDlg, oBtn, lNonModal := .F.

   DEFINE DIALOG oDlg TITLE "Modal"
   
   @ 2, 2 BUTTON oBtn PROMPT "As Non Modal" ;
      ACTION ( lNonModal := .T., oDlg:End() )

   ACTIVATE DIALOG oDlg CENTERED

   if lNonModal
      oDlg:SetText( "Non modal" )
      oBtn:SetText( "End" )
      oBtn:bAction = { || oDlg:End() }

      ACTIVATE DIALOG oDlg NOWAIT CENTERED
     
      oDlg:Show()
   endif

return nil
 

[ShumingWang]

Thank you very much!
Shuming Wang