27400 total geeks with 3535 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: Feb 28
February Goal: $30.00
Gross: $0.00
Net Balance: $0.00
Left to go: $30.00
Contributors


News Feeds
The Register
I, ROBOT ~ YOU,
MORON. How else
will automated news
work?
Fork me! Uber hauls
GitHub into court
to find who hacked
database of 50,000
drivers
New Xen vuln
triggers Amazon,
Rackspace reboot
panic redux
FCC says cities
should be free to
run decent ISPs.
And Republicans
can"t stand it
He"s baaack:
Microsoft"s axeman
Nadella to give
Chinese staff the
chop
Make room, Wi-Fi,
Qualcomm wants to
run LTE on your
5GHz band
Google pulls out of
Blogger smut black
hole
RIP Leonard Nimoy:
He lived long and
prospered
Reckon YOU can
write better
headlines than us?
Great ? apply
within
Guess who filed
most Euro patents
in 2014? Yep, still
Samsung
Slashdot
BlackPhone, In Wake
of Gemalto Fallout,
Receives $50
Million In Funding
Twitter Adds
"Report Dox" Option
Microsoft, Amazon,
Google, Facebook
Press WA For $40M
For New UW CS
Building
Google Reverses
Stance, Allows Porn
On Blogger After
Backlash
Vandalism In
Arizona Shuts Down
Internet and Phone
Service
Verizon Posts
Message In Morse
Code To Mock FCC"s
Net Neutrality
Ruling
Microsoft Finally
Allows Customers To
Legally Download
Windows 7 ISOs
Simple IT Security
Tactics for Small
Businesses (Video)
Lenovo Saying
Goodbye To
Bloatware
Can the Guitar
Games Market Be
Resurrected?
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 15944 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