27024 total geeks with 3521 solutions
Recent challengers:
 Welcome, you are an anonymous user! [register] [login] Get a yourname@osix.net email address 

Articles

GEEK

User's box
Username:
Password:

Forgot password?
New account

Shoutbox
MaxMouse
It's Friday... That's good enough for me!
CodeX
non stop lolz here but thats soon to end thanks to uni, surely the rest of the world is going good?
stabat
how things are going guys? Here... boring...
CodeX
I must be going wrong on the password lengths then, as long as it was done on ECB
MaxMouse
lol... the key is in hex (MD5: of the string "doit" without the "'s) and is in lower case. Maybe i should have submitted this as a challenge!

Donate
Donate and help us fund new challenges
Donate!
Due Date: Sep 30
September Goal: $40.00
Gross: $0.00
Net Balance: $0.00
Left to go: $40.00
Contributors


News Feeds
The Register
A3Cube turns RAM up
to 11 with
FORTISSIMO kit
Murdoch to Europe:
Inflict MORE PAIN
on Google, please
Turnbull: NBN won"t
turn your town into
Silicon Valley
Comprehensive guide
to obliterating web
apps published
Top Gear Tigers and
Bingo Boilers:
Farewell then,
Phones4U
Student pleads
guilty to Frances
Abbott "secret"
scholarship leak
Cook explains Apple
privacy policy,
denies helping Feds
Spies would need
SUPER POWERS to tap
undersea cables
Amazon rekindles
e-readers and Fire
OS without weeks of
whack-a-leak fun
Boffins plot global
(browser) cookie
crumb trail
Slashdot
Apple Locks iPhone
6/6+ NFC To Apple
Pay Only
Scientists Twist
Radio Beams To Send
Data At 32 Gigabits
Per Second
Tinba Trojan
Targets Major US
Banks
Ask Slashdot:
Remote Support For
Disconnected,
Computer-Illiterate
Relatives
Airbnb To Start
Collecting Hotel
Tax On Rentals In
San Francisco
ULA and Jeff Bezos"
Blue Origin
Announce Rocket
Engine Partnership
Are Matt"s Robot
Hexapods Creepy or
Cute? (Video)
Use of Forced Labor
"Systemic" In
Malaysian IT
Manufacturing
eBay Redirect
Attack Puts Buyers"
Credentials At Risk
How Flickr Is
Courting the Next
Generation of
Photographers
Article viewer

How to stop a Form from Closing in Delphi



Written by:xeno2
Published by:Nightscript
Published on:2004-06-17 13:31:36
Topic:Delphi
Search OSI about Delphi.More articles by xeno2.
 viewed 14932 times send this article printer friendly

Digg this!
    Rate this article :
Rewriting this article to use with Delphi.

This example use one simple command - ABORT;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if MessageDlg('Do you really want to close this application?',mtWarning,[mbYes,mbNo],0)=mrNo then
    abort;
end;


Very simple ;o) - but working very well ;o)

Did you like this article? There are hundreds more.

Comments:
Anonymous
2009-07-27 09:50:26
This code is Wrong.. Not working..
Code must be..
if MessageDlg('Do you really want to close this application?',mtWarning,[mbYes,mbNo],0)=mrNo then
action := caNone;

Thanks. Fatih Murat ARSAL
Anonymous
2010-02-20 00:19:27
this code is Work very well Anonymous! No Problem with any delphi compiler.

so my official compiler is doing this with abort syntax.

javad rahmatzadeh
Anonymously add a comment: (or register here)
(registration is really fast and we send you no spam)
BB Code is enabled.
Captcha Number:



     
Your Ad Here
 
Copyright Open Source Institute, 2006