27368 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
Chipotle insider
trading: Disproving
the efficient
markets hypothesis
Oh, lordy! "I do
not begin to
understand the dark
cloud. LEGISLATE
NOW"
STUDENT RACK WARS:
Science and HPC ?
all the kids are
doing it these days
Earth"s soil to be
observed by
DIRTY-MINDED
satellite
Snapchat
jihadist-fearing
peers return with
LAST GASP Snoopers"
Charter demand
Grav wave tsunami
NOT caused by Big
Bang ? astro
boffins
Cuddly robots,
whipsmart laughs
and plenty of heart
in Big Hero
6
Google Now now
SLURPS data from 40
third party apps so
YOU don"t have to
Bitter Lake:
Know your enemy?
Impossible, surely,
when you don"t know
if the enem
"Boutique" ISPs:
Snub the Big 4 AND
get great service
Slashdot
OpenSSH Will
Feature Key
Discovery and
Rotation For Easier
Switching To
Ed25519
Physicists Make a
Mobius Strip From
Beams of Light
The Pirate Bay Is
Back Online,
Properly
NASA Looking At
Nuclear Thermal
Rockets To Explore
the Solar System
Inkscape Version
0.91 Released
Can Students Have
Too Much Tech?
GeForce GTX 980 and
970 Cards From MSI,
EVGA, and Zotac
Reviewed
Dell Continues
Shipping Fresh
Linux Laptops
Comcast Employees
Change Customer
Names To "Dummy"
and Other Insults
UK Sets Up
Internet-Savvy Army
Unit
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 15761 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