Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win

x
?
Solved

Word-style menus

Posted on 2000-03-01
7
Medium Priority
?
136 Views
Last Modified: 2010-04-04
Hello

I would like to know the best way to create the new Word style menus. I refer to the ones that have toolbars with buttons containing menu captions. When the menu caption is pressed, a popup menu appears below it with the menu items. When you scroll your mouse across the other options, the popups all appear below.

I ask this question because I want to ensure that there is not a control requiring a few distinct property settings to accomplish this behaviour, before I write my own component to do this.

Cheers,
Edo
0
Comment
Question by:Edo082297
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 3
7 Comments
 
LVL 10

Expert Comment

by:Lischke
ID: 2572082
Hi Edo,

fortunately there's already all in Delphi you need for this kind of menu (it is actually the same as the IDE uses, right?). The only thing you won't get is the menu animation, but all other is easy:

1) place a TMainMenu on the form and fill it with items
2) place a toolbar on the same form and create a few buttons
3) select each button and set its MenuItem property to an item of your choice
4) mark each item as grouped to allow for automatic open and close of the submenus when moving the mouse over different main items


Ciao, Mike
0
 
LVL 12

Expert Comment

by:rwilson032697
ID: 2574194
Listening
0
 
LVL 1

Author Comment

by:Edo082297
ID: 2591277
Hi Mike

Thanks. Do you have any suggestions as to how I could now make the buttons flat (TSpeedButton)? Will I have to write my own TToolButton?

Post as answer, you have met the requirements.

Cheers,
Edo
0
Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

 
LVL 10

Accepted Solution

by:
Lischke earned 200 total points
ID: 2591296
Hi Edo,

use property TToolbar.Flat to make flat buttons.

Ciao, Mike
0
 
LVL 1

Author Comment

by:Edo082297
ID: 2591318
I just found it, one just has to set the Flat property to true of the containing toolbar.

I'm not terribly happy with the all or nothing sizes of the buttons, however. Anyway, it's a pretty moot point.

Cheers,
Edo
0
 
LVL 1

Author Comment

by:Edo082297
ID: 2591321
Ha-ha, our answers crossed.
0
 
LVL 10

Expert Comment

by:Lischke
ID: 2591341
:-)
0

Featured Post

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

The uses clause is one of those things that just tends to grow and grow. Most of the time this is in the main form, as it's from this form that all others are called. If you have a big application (including many forms), the uses clause in the in…
In this tutorial I will show you how to use the Windows Speech API in Delphi. I will only cover basic functions such as text to speech and controlling the speed of the speech. SAPI Installation First you need to install the SAPI type library, th…
Have you created a query with information for a calendar? ... and then, abra-cadabra, the calendar is done?! I am going to show you how to make that happen. Visualize your data!  ... really see it To use the code to create a calendar from a q…
In this video, Percona Director of Solution Engineering Jon Tobin discusses the function and features of Percona Server for MongoDB. How Percona can help Percona can help you determine if Percona Server for MongoDB is the right solution for …
Suggested Courses

610 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question