Главная страница | назад

Article #18082: Getting a cool menu in your app

 Question and Answer Database

FAQ3082D.txt   :Getting a cool menu in your app
Category   :VCL
Platform    :Win95/NT
Product    :Delphi4.x,   

I want to have a menu that looks like Delphi 4's menu in my app.
How can I do that?

1. Drop down a TControlBar. Align it to Client.
2. Drop down a TToolBar inside of the TControlBar.
3. Set Flat and ShowCaptions of the TToolBar to True.
4. Create as many TToolButtons on the TToolBar as you'd like.
5. Set Grouped to True for all TToolButtons. This will enable
   your menu to pop up menu after menu as you sweep across the
   menu (if a menu is already pulled down).
6. Drop down a TMainMenu, and make sure it's *not* attached
   to the form it's on.
7. Create the entire menu, with all its entries.
8. For each TToolButton, set its MenuItem to the corresponding
   menu item in the TMainMenu.

12/01/1998 1:39:32 PM

Last Modified: 01-SEP-99