FiveTech Support Forums

#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