是否覺得Delphi提供的菜單用起來實(shí)在沒有美感呢？你可以自己用Delphi自帶的VCL控件實(shí)現(xiàn)一個(gè)IE風(fēng)格的菜單！特征包括：懸浮按鈕、拖動(dòng)定位、圖形……所有的這些都不需要任何第三方控件，也不需要大量的編程！

實(shí)現(xiàn)一個(gè)IE風(fēng)格的菜單需要執(zhí)行以下步驟的工作：
1、按正常方式定義一個(gè)普通的菜單；
2、從窗口中隱藏已定義的菜單；
3、在窗口中添加CoolBar和ToolBar，作為菜單欄；
4、將菜單映射到ToolBar的按鈕上；
5、為實(shí)現(xiàn)特殊效果進(jìn)行編程（可選）。

第一步，按正常方式定義一個(gè)普通的菜單。
在窗口中增加一個(gè)TMainMenu控件，然后按通常的方式定義菜單項(xiàng)目、圖標(biāo)、快捷鍵等。

第二步，從窗口中隱藏已定義的菜單。
定義好的菜單會自動(dòng)顯示在窗口上。這是因?yàn)橄虼翱谠黾覶MainMenu控件時(shí)，TForm對象的Menu屬性自動(dòng)設(shè)置為增加的TMainMenu對象。為了使用我們自己定義的菜單，必須把這個(gè)菜單隱藏起來。清除TForm.Menu，定義好的菜單就不會自動(dòng)顯示了。

第三步，在窗口中添加CoolBar和ToolBar，作為菜單欄。
向窗口中添加一個(gè)TCoolBar控件，然后把一個(gè)TToolBar控件放在它里面。設(shè)置TCoolBar和TToolBar的AutoSize屬性為True，設(shè)置TToolBar的Flat屬性為True，并且設(shè)置TToolBar的ShowCaptions屬性為True。這樣，窗口上方就出現(xiàn)了一個(gè)空白的菜單欄。下一步我們將向這個(gè)菜單欄里增加菜單項(xiàng)目。

第四步，將菜單映射到ToolBar的按鈕上。
用右鍵單擊TToolBar，從彈出的菜單中選New Button，向菜單欄中增加第一個(gè)按鈕。設(shè)置這個(gè)按鈕的AutoSize屬性和Grouped屬性為True，然后把Caption屬性改為菜單項(xiàng)的文字。例如，Caption屬性可能會被設(shè)置為&File。最后，設(shè)置這個(gè)按鈕的MenuItem屬性為TMainMenu中定義的對應(yīng)的菜單項(xiàng)。例如，MenuItem屬性可能會被設(shè)置為mnuFile。經(jīng)過這些設(shè)置，按鈕就和菜單項(xiàng)鏈接到了一起，單擊按鈕時(shí)將會彈出對應(yīng)的菜單了。

第五步，為實(shí)現(xiàn)特殊效果進(jìn)行編程（可選）。
經(jīng)過前面四步的工作，新菜單已經(jīng)可以正常工作了。但是，如果想要實(shí)現(xiàn)其他的一些特效，如CoolBar的拖動(dòng)定位等，需要再進(jìn)行一些編程的工作。這些內(nèi)容已經(jīng)不是本文的主題所在，就不加以討論了，有興趣的讀者可以參考Delphi的幫助。

歡迎各位讀者對本文提出自己的見解。