"X" - Code to Ask Are You Sure

[[email protected]]

Hi,

My client keeps closing his windows and getting confused on the Windows close by pressing the "X" on the toolbat. Is there a generic routine that I can place thu the application to ask "Do You Want to Exit" instead of the auto close of the window ??

Thanks,

Ryland

[Tbaker]

Re: "X" - Code to Ask Are You Sure

Ryland

Alpha has provided a script name similar to autoexec it is called candatabaseclose. It fires anytime you try to close the application.

You can create a script with a message box asking your user if they really want to close the application.

Here is what I use on my Warehouse Management application

DIM GLOBAL  r1_result as N


title_var = "Program Exit ?"
message_text_var = <<%text%
Do you want to exit the program?
%text%
r1_result=ui_msg_box(title_var,message_text_var,UI_YES_NO+ UI_FIRST_BUTTON_DEFAULT+ UI_QUESTION_SYMBOL)

if r1_result= 7 then
cancel()
else
a5.close()
end if

Everytime you push a button that will close the application or the Big Red X, the candatabaseclose will fire and ask if you really want to do that.

You can code it to do whatever you want to do.


Tom Baker

[DaveM]

Re: "X" - Code to Ask Are You Sure

Ryland,

A different way in my apps. There is no "X" in the upper right hand corner. The only way they can close is by a method I give them. Well, they could shut off the computer or something LOL


.

[Tbaker]

Re: "X" - Code to Ask Are You Sure

There was an error in the code I posted, it should read

DIM GLOBAL  r1_result as N


title_var = "Program Exit ?"
message_text_var = <<%text%
Do you want to exit the program?
%text%
r1_result=ui_msg_box(title_var,message_text_var,UI_YES_NO+ UI_FIRST_BUTTON_DEFAULT+ UI_QUESTION_SYMBOL)

[COLOR="Red"]if r1_result= 7 then
cancel()
end if[/COLOR]

The code in red in the changed code - in my application you would have been directed to a logging out routine and then close. In this case there is no need for A5.close() since if you don't cancel the closure by selecting no the program will then close.

Sorry for the error

Tom Baker

[[email protected]]

Re: "X" - Code to Ask Are You Sure

Thanks, it looks like this will do the trick.....Ryland

[[email protected]]

Re: "X" - Code to Ask Are You Sure

Tom,

I noticed that the "X" carries the same value as a "Close Form". What I really wnat to do is just not have them hit the X, but still allow them to close a form so that they could proceed to the previous menu.....does that make sense ?? Ryland

[Bob Arbuthnot]

Re: "X" - Code to Ask Are You Sure

Ryland,

You might want to check out this thread:

http://msgboard.alphasoftware.com/al...ight=big+red+x

ba

[[email protected]]

Re: "X" - Code to Ask Are You Sure

Thanks Bob and Tom,

This is the code that I used to disable from that thread:

DIM code as C
code = <<%code%
CANCEL()
%code%
can_database_exit(code)

I liked Tom's example as well, but I will have to re-work my form closes in order to use it directly.

Ryland

[G Gabriel]

Re: &quot;X&quot; - Code to Ask Are You Sure

Put this code in the CanExit Event of the form:

ui_dlg_box("Exit",<<%dlg%
Do you wish to close this form?;
<Yes><No>;%dlg%,<<%code%
if a_dlg_button="yes"
	parentform.close()
	else
	cancel()
	end if
	%code%)