程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> C語言 >> VC >> vc教程 >> 如何用BCB做出可移動的菜單

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

編輯:vc教程

有三種方法:

一:

放一個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!

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved