27460 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
Hawking hologram
comforts One
Direction fans with
Zayny parallel
universe claim
Euroboffins want EU
to achieve
techno-independence
HP switch upgrade
hopes to sneak SDN
onto network,
quietly
Man-in-the-Middle
diddle hits 25,000
iOS apps
Surgery-bot can be
hacked to HACK YOU
TO PIECES
Sweden releases
human genome under
Creative Commons
licence
ServiceMesh man
Eric Pulier resigns
from CSC amid
bribery claims
Close encounter:
Apple Macs invade
the business world
Let downloads roam
free, says ACCC
2016 might just be
the year of Linux
on the (virtual)
desktop
Slashdot
Why Our Antiquated
Power Grid Needs
Battery Storage
New Zero Day
Disclosed In
WordPress Core
Engine
Valve Pulls the
Plug On Paid Mods
For Skyrim
New Privacy Threat:
Automated Vehicle
Occupancy Detection
The Engineer"s
Lament --
Prioritizing Car
Safety Issues
Holographic
Principle Could
Apply To Our
Universe
An Open Ranking of
Wikipedia Pages
Alibaba Looks To
Rural China To
Popularize Its
Mobile OS
Texas Admonishes
Judge For Posting
Facebook Updates
About Her Trials
Imagination To
Release Open MIPS
Design To Academia
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 16354 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