27527 total geeks with 3536 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
FBI updates Most
Wanted cyber felons
list, offers
US$4.2m bounties
UK govt spied on
human rights
warriors at Amnesty
International
Privacy watchdog
ICO slashes its
fines in half
Oil & gas? Pah.
We?ve got a MASSIVE
3D printer, beams
Dubai
Windows 7 and 8.1
market share surge,
XP falls behind OS
X
LG won"t fix
malware slinging
bloatware update
hole
20 yr-old Brazilian
births 100 banking
trojans
South Australian
becomes the FlexPod
state
Robot kills man at
German Volkswagen
plant
PeopleSoft p0wnage
possible with a day
of GPU
brute-forcing
Slashdot
Retro City Rampage
Getting a DOS
Version
Qt 5.5 Released
Exploring the
Relationships
Between Tech Skills
(Visualization)
Cuba Connecting
Universities With
Fiber
Federal Wiretaps
Down Slightly,
Encryption Impact
Decreases
How the Next US
Nuclear Accident
Might Happen
Windows 10 Shares
Your Wi-Fi Password
With Contacts
Depression: The
Secret Struggle
Startup Founders
Won"t Talk About
First Human
Colonies Should Be
Among Venus" Clouds
Meet the Makers of
an Exotic
(Partially) 3-D
Printed Car (2
Videos)
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 16780 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