27445 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: Apr 30
April Goal: $40.00
Gross: $0.00
Net Balance: $0.00
Left to go: $40.00
Contributors


News Feeds
The Register
Amazon"s clouds are
da bomb, say EU
data protection
watchdogs
UK"s National
Museum of Computing
celebrates 10
glorious years
ESA reveals
Rosetta"s snaps of
MARS and EARTH
It"s the FALKLANDS
SYNDROME! Fukushima
MELTDOWN to cause
"10,000 Chernobyls"
in South At
Virgin Media goes
TITSUP, RUINS
Tuesday evening
Mozilla project
spits out threat
modelling tool for
sysadmins
OpenDaylight and
friends spin up
"CloudRouter
Project"
Netflix teams with
AWS to launch
VHS-as-a-service
Firefox hits prime
time as version 37
manifests
POODLE vuln dogs
Australian consumer
modems
Slashdot
UK IP Chief Wants
ISPs To Police
Piracy Proactively
World"s Largest
Aircraft Seeks
Investors To Begin
Operation
The End of College?
Not So Fast
NSA Worried About
Recruitment,
Post-Snowden
Why More "Star
Wars" Actors Don"t
Become Stars
We"re In a Golden
Age of Star Trek
Webseries Right Now
Google Unveils the
Chromebit: an HDMI
Chromebook Dongle
Mario 64 Remake
Receives a DMCA
Complaint From
Nintendo
Report: Facebook
Tracks Visitors Who
Have Opted Out,
Violating EU Law
Thousand-Year-Old
Eye Salve Kills
MRSA
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 16154 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