"CLOSE" button on dialog

[Bill Warner]

I have a form that I pop-up as a dialog (form.view("name",dialog)) that works just fine. However, to close the form, the user has to click on the X.

I would like to put a button on it to close it, which would also prompt the user to save changes. How can I do this?

As always, any help is greatly appreciated.

[BRochford]

RE:

Bill, go ahead and put a Close button or Confirm button on the Dialog Form. Don't forget though that Close button only "hides" the form, it must be closed when you return to the calling script.

Open dialog form
go out to dialog form - "close" it
return to calling form
close the dialog form.

-Barry

[Stephen Williams]

RE:

I have exactly this set up. I just converted my action script to xbasic (and eliminated the error trapping...)
NOTE: this script does NOT close the form as it is on the dialog form. You need to close the form using the script that opened it.

select
case parent.mode_get()="ENTER"
ax_response = ui_msg_box("","Save Record ?", 4)
if ax_response=6 then
ax_choice="YES"
else
ax_choice="NO"
end if
select
case alltrim(upper("Yes"))==alltrim(upper(ax_choice))
parent.commit()
case alltrim(upper("No"))==alltrim(upper(ax_choice))
end select
end select
parent.close()

END

[Jerry Hartness]

RE:

Bill, your Open button would look like this
{{below is a sample from one of my files}}

:form.view("glcodes","dialog")
:glcodes.close()
parentform.resynch()

then on your dialog box place a button to exit.
select the Built in action
then Form/Browse Operation, then
Close the current form
you will get an inline xbasic code that looks like the
following:

dim mode as c
mode = parentform.mode_get()
if mode = "ENTER" .or. mode = "CHANGE" then
parentform.commit()
if parentform.mode_get()"VIEW" then
ui_msg_box("Unable to save your changes","Please correct and save, or discard your changes", UI_STOP_SYMBOL)
end if
end if
parentform.close()

this will take you back to the form that called the dialog box.

Jerry

[Bill Warner]

RE:

Many thanks to all that responded.