Don't you get bored with creating a developed exit button yet? Leftovers It's very boring for me.(I believe for you too..). Here is, this simple and useful component with two properties allows you big easiness. Hold, carry and put this TExitbutton on your form where you want.
What does it?
-----------------
(Firstly in this code, my aim is to explain how to create a componenet in Delphi.Because delphi already has the TBitbtn componenet to do this easly)
Don't you get bored with creating an exit button yet ? You always create
a button on your form and write an "application.terminate" code into to exit to windows when you begin to write a new delphi programme.
Leftovers It's very boring for me.(I believe for you too..). Here is this simple and useful component allows you big easiness. Hold, carry and put this TExitbutton on your form where you want. You'll see there is an 'EXIT' article as its caption on this button.
Has TExitbutton new properties?
-----------------------------------------
Yes Our component has two properties CLINEX and SHOWCLINEX. Clinex is a string properties and contains a text that appears in a message box before you exit to windows. For example write this text in the Clinex box: "Do you want exit?." You'll see this message before you exit to windows..(this is default text). ShowClinex is a boolean property that fixes whether message box appears on your screen . Its value can be true or false. I have added a MessageDLG box so that user can be control exit process. both of the buttons have been placed on the dialog like YES and NO.
How to install this component?
--------------------------------------
Unzip and put exitbutton.pas and exitbutton.dcu files into a secure place (for example ...\delphi\lib\mycomponents).Run delphi and select install componet from component menu. Browse exitbutton.pas and select a package to locate it. You can create a new package too. Compile this package. Your component will be placed on a new palette called 'DERYA'. You can change all of these as you need.