27481 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: May 31
May Goal: $40.00
Gross: $0.00
Net Balance: $0.00
Left to go: $40.00
Contributors


News Feeds
The Register
NASA sending
five-metre
THERMO-HAMMER to
Mars
Password reset
sites expose
crackable
PeopleSoft creds
NASA"s Jupiter moon
mission becomes
acronymathon
SourceForge accused
of shackling GIMP
in kinky adware
Don"t PANIC but ...
UNSTOPPABLE robots
IMMUNE to injury
built by boffins
Beware Red Hat
interviews: you"ll
pay for coffee,
lunch and fuel
Fortinet rides to
troubled Meru"s
rescue
Docker Hub images
buggy and
vulnerable, say
researchers
There"s data in
your dashboard, so
liberate it from
Big Auto"s grasp
Property developers
face NBN build
sting
Slashdot
High Court Orders
UK ISPs To Block
EBook Sites
Scientists Reverse
Aging In Human Cell
Lines
Thanks To the
Montreal Protocol,
We Avoided Severe
Ozone Depletion
Computer Chips Made
of Wood Promise
Greener Electronics
Global Business
Leaders Say They
Don"t Know Enough
About Technology To
Succeed
GM To Offer Apple
CarPlay and Android
Auto API In Most
2016 Vehicles
Making the World"s
Largest Panoramic
Photo
California Is
Giving Away Free
Solar Panels To Its
Poorest Residents
The Marshall
Islands, Nuclear
Testing, and the
NPT
Microsoft Edge To
Support Dolby Audio
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 16551 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