26277 total geeks with 3498 solutions

Recent challengers:

yehuju level 3 - 11:37PM
benjaminjess level 2 - 01:36AM
benjaminjess level 1 - 01:14AM

Welcome, you are an anonymous user! [register] [login]

Get a yourname@osix.net email address

	GEEK
Challenge Bonus Levels Geek Reverser View Solutions Test Centre Hall of Brain Hall of Bonus Hall of Reverse Geek or Freak

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

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

	I know who "Satoshi Nakamoto" is, says Ted Nelson
	Google builds crowdsourcing into new Maps code stack
	Google"s Native Code browser tech goes cross-platform
	Yahoo! to "share something special" in New York on Monday
	Adobe"s Creative Cloud fails at being a cloud
	NASA signs off on sampling mission to Earth-threatening asteroid
	US military welcomes Apple iOS 6 kit onto its networks
	Jailed Romanian hacker repents, invents ATM security scheme
	Climate scientists agree: Humans cause global warming
	MIT takes battery-powered robot cheetah for a gallop

Slashdot

	Yahoo! Japan May Have Had 22 Million User IDs Stolen
	Ask Slashdot: Why Do Firms Leak Personal Details In Plain Text?
	Data Center Managers Weary of Whittling Cooling Costs
	Canadian Cellphone Users May Get Justice Over Phantom Charges
	Wired Writer Imagines Google Island
	Syrian Electronic Army Hits Financial Times Sites, Feeds
	Arduino Branches Out, With a Plug-and-Program Robot
	After Kickstarter Record, Pebble Smartwatch Lands $15M From VCs
	Electronics-Loving "Crazy Ants" Invading Southern US
	Intel Rolls Out "Beacon Mountain" Android Dev Platform For Atom

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 12183 times

send this article

printer friendly

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.

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:

Copyright Open Source Institute, 2006