27581 total geeks with 3537 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: Aug 31
August Goal: $40.00
Gross: $0.00
Net Balance: $0.00
Left to go: $40.00
Contributors


News Feeds
The Register
Barbarous beheading
inflicted on
innocent robot
tourist
"We fell short"
says QLogic CEO in
August"s
understatement-of-t
he-month contender
Nokia sells HERE
maps to Audi,
Daimler and BMW for
?2.8 billion
Lottery chief
resigns as winning
combo numbers
appear on screen
BEFORE being drawn
Linus Torvalds
warns he"s in no
mood to be polite
as Linux 4.2 drags
VMware doubling
down on OpenStack
Q2 wins drag Cray
back into profit
territory
Telstra"s bush
broadband boxes
bugged, bashed,
botted
VMAX flashes its
virtues for all to
see
Chrome extensions
crocked with simple
attack
Slashdot
Modding Community
Putting HD Textures
Into Resident Evil
4
Girls Catfish ISIS
On Social Media For
Travel Money
Unicode Consortium
Looks At Symbols
For Allergies
Research Scientists
To Use Network Much
Faster Than
Internet
Sociologist: Job
Insecurity Is the
New Normal
Non-Invasive Spinal
Cord Stimulation
Gets Paralyzed Legs
Moving Again
DoD Ditches Open
Source Medical
Records System In
$4.3B Contract
China To Impose
Export Control On
High Tech Drones
and Supercomputers
Challenger,
Columbia Wreckage
On Public Display
For First Time
Uber Invests $1
Billion In Indian
Market
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 17026 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