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