如何用BCB做出可移動的菜單？

2019-11-17 05:32:29

字體：大中小

來源：轉載

供稿：網友

　　有三種方法：
一：
放一個coolbar，在其上放一個toolbar，設置toolbar的showcaptions為true，flat為true，在上面新建一個toolbotton
加入一個popupmenu，設置好其items
設置toolbutton的dropdownmenu為popupmenu，設置其style為BTsdropdown

但是這種方法做出來的菜單其實和你要求的并不一樣。它的菜單其實是受在按鈕旁邊的一個小三角符號控制的。

看第二種方法：
1放一個coolbar
2在其上放兩個toolbar
3在你想做成菜單的那個toolbar上放一個speedbotton
4設置speedbutton的flat為true，caption為“文件”
5加如一個popupmenu，設置其items為“打開”和“退出”
6在speedbutton的onclick事件里加入以下代碼：
void __fastcall TForm1::SpeedButton1(TObejct *Sender)
{
Tpoint Pos;
TSpeedButton *Btn;
Btn = TSpeedButton(Sender);
Pos=Btn.ClientToScreen(TPoint(0,0));
Pos.y=Pos.y+Btn.Height;
PopupMenu1.Popup(Pos.x,Pos.y);
}

第三種方法:
不需要寫代碼。

步驟：
1、在窗口加一個TControlBar
2、在TControlBar上加一個TToolBar
3、在TToolBar上加足夠的按鈕(右鍵菜單的那種)，你希望有多少項菜單就加多少個按鈕。
4、加一個TMainMenu,象你希望的一樣添加菜單項。
5、去掉窗口的Menu屬性中的值（在屬性窗口中）
6、設TToolBar屬性：
    ShowCaption=true
    DragKind=dkDock
    DragMode=dmAutomatic
    Flat=true
    EdgeBorder=去掉所有項
7、對TToolBar中的所有按鈕的設屬性：
    Grouped=true
    AutoSize=true
    MenuItem=你希望按鈕對應的菜單項

然后，一切OK!

上一篇：如何提高數據庫的訪問速度

下一篇：如何在BCB中調試Active Form