Categories
Keywords
Downloads
Say no to program closings!
Here's how to prompt users whether they really want to exit your program or not (regardless of how they choose to close it):
- Select your form (named "Form1" for example) and double click on its "OnCloseQuery" event
- Define the "FormCloseQuery" procedure as follows:
procedure TForm1.FormCloseQuery(
Sender: TObject;
var CanClose: Boolean);
begin
if(mrNo = MessageDlg(
'Are you sure you want to exit?',
mtInformation,
[mbYes, mbNo],
0)) then
begin
CanClose := False;
end;
end;
Sender: TObject;
var CanClose: Boolean);
begin
if(mrNo = MessageDlg(
'Are you sure you want to exit?',
mtInformation,
[mbYes, mbNo],
0)) then
begin
CanClose := False;
end;
end;
Listing #1 : Delphi code. Download close (0.3 KB).
To share this: BlinkBits | BlinkList | Blogmarks | Co.mments | Connotea | Del.icio.us | Digg | Facebook | FrankIt | Furl | Ma.gnolia | Newsvine | Reddit | Yahoo
Applicable Keywords : Delphi, Delphi 1.x, Delphi 2.x, Delphi 3.x, Functions, Win32
Previous Tip : Delphi, C++Builder and JBuilder components heaven
Random Tip : Become a System Editor
Next Tip : Using Format() to format your code
Random Tip : Become a System Editor
Next Tip : Using Format() to format your code