26957 total geeks with 3514 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: Jul 31
July Goal: $40.00
Gross: $0.00
Net Balance: $0.00
Left to go: $40.00
Contributors


News Feeds
The Register
Joe Average isn"t
worth $10 a year to
Mark Zuckerberg
VMware counters
containers with
SaaSy VM disk swap
Russia sends
SEX-CRAZED GECKOS
to SPAAAAACE!
Verizon to limit
unlimited 4G plans
Redmond in rapid
rebuild after
sysadmin request
STUNNER
Bring back error
correction, say
Danish "net boffins
AusCERT chief
Ingram steps down
Google outlines
research priorities
for boffin grants
Batteries take the
lithium for charge
boost
Colbert report
reveals VMware"s
AirWatch
integration plan
Slashdot
Popular Android
Apps Full of Bugs:
Researchers Blame
Recycling of Code
Newly Discovered
Virus Widespread in
Human Gut
Off the Florida
Coast, Astronauts
Train For Asteroid
Mission
Valencia Linux
School Distro Saves
36 Million Euro
A Router-Based Dev
Board That Isn"t a
Router
Satellite Images
Show Russians
Shelling Ukraine
Linus Torvalds:
"GCC 4.9.0 Seems To
Be Terminally
Broken"
SpaceX Executive
Calls For $22-25
Billion NASA Budget
Ask Slashdot: What
Would You Do With
Half a Rack of
Server Space?
Amputee Is German
Long Jump Champion
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 14703 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