System X button and "Close" on my form. 1

[ukusa]

I have a exit button which asks the question "Are you sure" etc to confirm application shutdown. With this I had to disable the Systems close button so I can ask the question! If the application freezes for some reason, could the System close button still be functional as opposed to my created one, and still be able to close the application?

Thanks
Allen

 

[DelphiAaron]

in the forms oncloase event you will see
var Action: TCloseAction

use it like this

if MessageDlg('do you want to close', mtConfirmation,
[mbYes, mbNo], 0)= mrno then Action:=caNone;

 

[ukusa]

oowa!!!! Thanks for that. Coming from Paradox, used disabledefault and caNone is the key! Thank you Sir



Allen