' Rapid-Q by William Yu (c)1999-2000                                             .
' ================================================================================
' Upload_il_tuo_script_su_Rapidq.it

' onclose_finestra_di_popup

ESEMPIO 1
----------------------------------------------------------------------------------------
DECLARE SUB Close



CREATE Form AS QFORM

                Center

                OnClose = Close

END CREATE



SUB Close

                IF MESSAGEDLG("Really?",3,1 OR 2,0) = 7 THEN Form.ModalResult = 0

END SUB



Form.ShowModal
----------------------------------------------------------------------------------------
ESEMPIO 2
----------------------------------------------------------------------------------------
'close dialog

$typecheck on

$include "RapidQ.inc"

declare sub form1_close(action as integer)

Create Form1 as qform

                onclose=form1_close

                Left=148

                Top=98

end create



'----------Initaliation code-----------



Form1.Showmodal



sub form1_close

                if messagebox("Do you really want to quit?","Quit?",4)=7 then action=0

end sub



' ===============================================================================
'                      2003 Holyguard.net - 2007_Abruzzoweb