I.T. Discussion Community!
-Collapse +Expand
Delphi
Search Delphi Group:

Advanced
-Collapse +Expand Delphi To/From
To/FromCODEGuides
-Collapse +Expand Delphi Store
PRESTWOODSTORE

Prestwood eMagazine

April Edition
Subscribe now! It's Free!
Enter your email:

   ► KBProgrammingDelphi for W...Language Det...   Print This     
  From the February 2012 Issue of Prestwood eMag
 
Delphi Language Details:
Using MessageBox
 
Posted 17 years ago on 8/21/2002
Take Away: MessageBox is similar to ShowMessage but gives you more control over how it displays. This one is a favorite of developers because it is a Windows API function wrapped in a Delphi method. This is important because many Windows development languages support the MessageBox function.

KB100006



To do:

  1. Add a button to our form (this time change its Caption to MessageBox1).
  2. Double click on the button to bring up the editor.
  3. Type line 3 from the code listing between the begin and end.
  4. Run and test the program.

Notes:

  1. The begin and end mark this method’s code. Notice that the end has a “;” after it.
  2. There is a main begin and end that mark the application’s code. Notice the final end has a “.” after it. (You can see this by switching back to Delphi.)
1. procedure TForm1.Button2Click(Sender: TObject);
2. begin
3.   Application.MessageBox('Hello World!', 'My First App', 0);
4. end; 

Comments

1 Comments.
Share a thought or comment...
Comment 1 of 2
MessageBox also allows you to display multiple buttons and know which the user pressed. This is very usefull for limited yes/no type user interaction.

To do:

  1. Add a button to our form (set its Caption to MessageBox2).
  2. Double click on the button to bring up the editor.
  3. Type lines 2 and 3 from the code listing above begin.
  4. Type Lines 5 and 6 between the begin and end.
  5. Run and test the program.

Notes:

  1. Notice we declared sAns to be an integer. Then assigned the return value from MessageBox to it.
  2. Because Pascal is a highly typed language, we must use methods like IntToStr to convert a value to the correct type for the given method (as in line 6).
1. procedure TForm1.Button3Click(Sender: TObject);
2. var
3.   iAns : Integer;
4. begin
5.   iAns := Application.MessageBox('Is this fun?', 'Question', MB_YESNO);
6.   ShowMessage(IntToStr(iAns));
7. end; 
Posted 17 years ago

Comment 2 of 2
the syntax is nice but u can always go direct:

MessageBox(handle, 'Check this out!, 'Box Head', MB_ICONWARNING)

That's it.

Cheers!

Posted 13 years ago
 
Write a Comment...
...
Sign in...

If you are a member, Sign In. Or, you can Create a Free account now.


Anonymous Post (text-only, no HTML):

Enter your name and security key.

Your Name:
Security key = P1207A1
Enter key:
KB Post Contributed By Mike Prestwood:

Mike Prestwood is a drummer, an author, and creator of the PrestwoodBoards online community. He is the President & CEO of Prestwood IT Solutions. Prestwood IT provides Coding, Website, and Computer Tech services. Mike has authored 6 computer books and over 1,200 articles. As a drummer, he maintains play-drums.com and has authored 3 drum books. If you have a project you wish to discuss with Mike, you can send him a private message through his PrestwoodBoards home page or call him 9AM to 4PM PST at 916-726-5675 x205.

Visit Profile

 KB Article #100006 Counter
11746
Since 4/2/2008
-
   Contact Us!
 
PrestwoodBoards.com was developed and is maintainted by me. Do you have a question or suggestion? Do you see a problem? Contact me now. My goal is to build an ad-free and spam-free source of I.T. information with many contributers (ok to promote your website/company in your bio). Yes, my company Prestwood IT Solutions is mentioned in my bio which shows with every post, but you can contribute and promote your pet project too!

588 People Online Now!!  
Sign In to see who's online now!  Not a member? Join now. It's free!
Show more stats...


©1995-2019 PrestwoodBoards  [Security & Privacy]
Professional IT Services: Coding | Websites | Computer Tech