第9章菜單、工具欄和狀態(tài)欄目錄9.1菜單9.1.1下拉式菜單組件MainMenu9.1.2彈出式菜單組件PopupMenu9.1.3在菜單中添加小圖標19.2工具欄組件ToolBar29.3狀態(tài)欄組件StatusBar39.4小結4在Windows程序設計中，菜單、工具欄和狀態(tài)欄是應用程序重要的界面元素。菜單、工具欄和狀態(tài)欄可以使得程序操作更加方便，界面更加美觀、友好。9.1菜單在Delphi中菜單分為下拉式菜單和彈出式菜單，使用MainMenu組件很方便制作出下拉式菜單，使用PopUpMenu組件也可以方便地制作出彈出式菜單。通過單擊主菜單即可顯示出下拉式菜單，而彈出式菜單則可以通過鼠標右鍵單擊某個組件或者區(qū)域顯示出來。如圖9-1左邊是下拉式菜單、右邊為彈出是菜單。圖9-1下拉式菜單和彈出式菜單9.1.1下拉式菜單組件MainMenuMainMenu下拉式菜單的菜單項保存在Items屬性中，Items屬性是MainMenu的內部對象。通過菜單設計器可以設計菜單的Items屬性，添加菜單項。MainMenu組件在Standard組件面板中。1．菜單設計器在窗體上添加MainMenu組件后，雙擊MainMenu組件，顯示菜單設計器?；蛘呤髽擞益I單擊MainMenu組件，選擇“MenuDesigner…”也可以進入菜單設計器。如圖9-2右邊所示即為菜單設計器。圖9-2“ObjectInspector”對話框與菜單設計器在菜單設計過程中，選擇某個菜單項，則在“ObjectInspector”對話框中顯示的就是該菜單項所對應的的屬性。如圖9-2所示，在右邊菜單設計器中選擇“打開”菜單項，則“ObjectInspector”對話框中顯示的就是該菜單項的屬性，如“打開”菜單項的Name屬性是N3，Caption屬性是“打開”。菜單設計器有如下一些操作：（1）添加菜單項：一個菜單項設計完之后，自動在其后出現(xiàn)一個虛線框（如圖9-2“粘貼”菜單的下面就是這種虛框），表示新添加的菜單項，如果用戶想添加新菜單項，用戶可以直接設計之。（2）移動菜單項：用鼠標將要移動的菜單項直接拖動到目的位置即可。（3）插入菜單項：用鼠標右鍵單擊菜單項，選擇“Insert”可以完成菜單項的插入操作。（4）刪除當前菜單項：選中某菜單，直接按“Delete”鍵即可。（5）創(chuàng)建子菜單項：選中菜單執(zhí)行彈出式菜單中的“CreateSubMenu”菜單。菜單的屬性：（1）Caption屬性和Name屬性：用于設置菜單的標題，如圖9-2所示的“文件”、“新建”等。Name屬性默認值一般為n1、n2、n3等等。下面示例給出了Caption的一些用法，例如：n2.Caption:='新建';//菜單標題是新建，n2是新建菜單的Name屬性n3.Caption:='打開[&O]';//設置標題和加速鍵，按Alt+O等價與單擊“打開”n4.Caption:='-';//設置菜單的分隔，用于分隔不同性質的菜單，這樣更條理（2）Visible屬性：設置菜單是否可見，可以將菜單項設置為可見和不可見，還可以將菜單的子菜單設置為可見和不可見。例如：假設n1是“文件”菜單的Name屬性，n3是“打開”菜單的Name屬性。n1.Visible:=False;//“文件”菜單不顯示，其下的“新建”、“打開”等菜單也不顯示n3.Visible:=False;//“打開”菜單不顯示（3）Enabled屬性：菜單是否有效。例如：假設n1是“文件”菜單的Name屬性，n3是“打開”菜單的Name屬性。n3.Enabled:=False;//“打開”菜單無效n1.Enabled:=False;//整個“文件”菜單無效說明：無效的菜單，無法用加速鍵或者快捷鍵訪問。（4）ShortCut屬性：用于設置菜單的快捷鍵。（5）Checked屬性和AutoCheck屬性：Checked屬性用于設置菜單復選狀態(tài)，值為True時，菜單旁邊顯示符號“√”。AutoCheck屬性用于設置菜單是否自動改變Checked屬性值，當AutoCheck屬性值為True時，單擊菜單項，該菜單項的Checked屬性值自動改變，否則需要用代碼來改變。例如：假設n1、n2、n3、n4分別表示“字體”、“粗體”、“斜體”和“下劃線”菜單的Name屬性。其中n1是頂層菜單。n2的AutoCheck屬性值為False，n3的AutoCheck屬性值為True。n2.Checked:=notn2.Checked;//該語句用于改變n2的Checked，單擊n2菜單項，它的Checked屬性值不斷改變。//n3菜單不需要編寫代碼，每次單擊n3，n3的Checked屬性值能自動改變。（6）RadioItem屬性和GroupIndex屬性：用于設置單選菜單項，值為true時表示該菜單為單選菜單項。如果多個菜單的RadioItem屬性都是True，且它們的GroupIndex（整型，取值范圍0~255）相同，則這些菜單項是一組單選菜單，任何時刻僅可以選擇其中一個菜單項。2．下拉菜單應用【例9-1】設置一個編輯器，該編輯器可以打開、保存、新建文件，還可以編輯文件、設計字體。分析：本章主要講授菜單知識，因此對文件的新建、打開、保存等不做講解。本題將講授菜單的有效，單選菜單、復選菜單、加速鍵、菜單代碼編寫等等。步驟如下：（１）在窗體上添加下拉菜單組件MainMenu1、添加打開對話框OpenDialog1、添加保存對話框SaveDialog1、添加多格式編輯框RichEdit1。（２）設置菜單菜單項如圖9-3所示。其中“文件”、“新建”、“打開”、“保存”、分隔線和“退出”分別為n1、n2、n3、n4、n5和n6?！熬庉嫛?、“復制”、“剪切”、“刪除”和“粘貼”的Name屬性分別為n7、n8、n9、n10和n11?！白煮w”、“粗體”一直到“隸書”的Name屬性分別為n12~n20。設置各個菜單的加速鍵，此處省略。（3）設置RichEdit組件的Align屬性為alClient，調整這些組件的大小和位置，如圖9-3所示。圖9-3編輯器界面及其菜單項（4）設置“粗體”和“斜體”為復選菜單，方法是設置n13和n14的AutoCheck為False。編寫粗體和斜體的代碼如下：procedureTForm1.N13Click(Sender:TObject);beginn13.Checked:=notn13.Checked;//每次單擊粗體均要改變粗體的Checked屬性值

ifn13.Checkedthenrichedit1.SelAttributes.Style:=richedit1.SelAttributes.Style+[fsbold]else

richedit1.SelAttributes.Style:=richedit1.SelAttributes.Style-[fsbold]end;procedureTForm1.N14Click(Sender:TObject);beginn14.Checked:=notn14.Checked;//每次單擊粗體均要改變斜體的Checked屬性值ifn14.Checkedthenrichedit1.SelAttributes.Style:=richedit1.SelAttributes.Style+[fsitalic]elserichedit1.SelAttributes.Style:=richedit1.SelAttributes.Style-[fsitalic]end;分析：由于n13和n14的AutoCheck屬性為False，因此單擊粗體和斜體，菜單的Checked屬性值不會自動改變，因此需要使用語句來改變n13和n14的Checked屬性值。顯然，如果將n13和n14的AutoCheck屬性設置為True，則上面的程序可以寫成：procedureTForm1.N13Click(Sender:TObject);beginifn13.Checkedthenrichedit1.SelAttributes.Style:=richedit1.SelAttributes.Style+[fsbold]elserichedit1.SelAttributes.Style:=richedit1.SelAttributes.Style-[fsbold]end;procedureTForm1.N14Click(Sender:TObject);beginifn14.Checkedthenrichedit1.SelAttributes.Style:=richedit1.SelAttributes.Style+[fsitalic]elserichedit1.SelAttributes.Style:=richedit1.SelAttributes.Style-[fsitalic]end;（5）設置“10號”、“20號”、“宋體”和“隸書”為單選菜單。關于AutoCheck屬性，這里不再贅述，為了使程序更加簡潔將這4個菜單項的AutoCheck屬性都設置為True。將這4個菜單的RaidoItem屬性設置為True，表示這4個菜單是單選菜單。由于“10號”和“20號”是一組，故將“10號”和“20號”的RaidoIndex設置為0（RaidoIndex相同的為一組），將另外一組菜單“宋體”和“隸書”的RaidoIndex都設置為1。編寫者4個菜單的代碼，如下：procedureTForm1.N16Click(Sender:TObject);beginifn16.Checkedthenrichedit1.SelAttributes.Size:=10end;procedureTForm1.N17Click(Sender:TObject);beginifn17.Checkedthenrichedit1.SelAttributes.Size:=20end;procedureTForm1.N19Click(Sender:TObject);beginifn19.Checkedthenrichedit1.SelAttributes.Name:='宋體'end;procedureTForm1.N20Click(Sender:TObject);beginifn20.Checkedthenrichedit1.SelAttributes.Name:='隸書'end;（6）編寫RichEdit1的OnSelectionChange事件過程，如下：procedureTForm1.RichEdit1SelectionChange(Sender:TObject);beginifrichedit1.SelLength>0thenbeginn8.Enabled:=true;//如果有選定文字，則設置“復制”、“剪切”和“刪除”有效

n9.Enabled:=true;n10.Enabled:=trueendelsebeginn8.Enabled:=false;n9.Enabled:=false;n10.Enabled:=falseend;iffsboldinrichedit1.SelAttributes.Stylethen

n13.Checked:=true//選定文字是粗體，則設置n13的Checked為Trueelsen13.Checked:=false;iffsitalicinrichedit1.SelAttributes.Stylethenn14.Checked:=trueelsen14.Checked:=false;ifrichedit1.SelAttributes.Size=10thenn16.Checked:=true;ifrichedit1.SelAttributes.Size=20thenn17.Checked:=true;//選定“20號”，則“10號”的Checked屬性自動變?yōu)镕alseifrichedit1.SelAttributes.Name='宋體'thenn19.Checked:=true;ifrichedit1.SelAttributes.Name='隸書'thenn20.Checked:=true;end;說明：該過程的作用是根據(jù)選定文字的狀態(tài)設置菜單的狀態(tài)?！拔募?、“編輯”類菜單的代碼請讀者自己完成。3．菜單模板我們可以像使用模具一樣使用菜單模板來設計自己的菜單，也可以把自己設計的菜單保存為菜單模板，供下次使用。（1）添加系統(tǒng)菜單在自己的菜單中添加系統(tǒng)菜單模板，使得設計菜單更加方便、快捷。鼠標右鍵單擊菜單項選擇“InsertFromTemplate”可以將系統(tǒng)中的菜單添加到自己的菜單中，如“File”、“Edit”、“Window”、“Help”等等。（2）將自己的菜單保存為菜單模板鼠標右鍵單擊菜單，選擇“SaveAsTemplate”可以將自己設計的菜單保存為模板，以供下次使用。同樣可以使用“DeleteTemplate”刪除不用的菜單模板。9.1.2彈出式菜單組件PopupMenu彈出式菜單與下拉式菜單類似。彈出式菜單是為某個組件設計的，只有在某個組件上單擊鼠標右鍵才可以顯示該菜單，因此必須將彈出式菜單與某個組件關聯(lián)起來。方法是將彈出式菜單作為該組件的PopupMenu屬性值。9.1.3在菜單中添加小圖標在菜單中添加圖標，可以使得菜單更加美觀、形象。如圖9-4所示為添加了圖標的菜單。在菜單中添加圖標需要使用到另外一個組件ImageList。圖9-4在菜單中添加圖標．ImageList組件ImageList組件的作用是裝載圖像，ImageList中的圖像可以供其他組件如菜單、工具欄等使用，ImageList組件在Standard組件面板中。雙擊ImageList組件，激活ImageList編輯器，如圖9-5所示。圖9-5ImageList編輯器使用“Add”、“Delete”、“Clear”按鈕，分別向ImageList中添加圖像、刪除圖像或者清空全部圖像。2．ImageList組件的使用ImageList的作用是為其他組件提供圖像，我們以菜單為例講述ImageList組件的使用方法。（1）整個菜單與ImagList組件關聯(lián)設置菜單組件MainMenu1的Images屬性為ImageList1。使整個菜單與ImageList組件ImageList1關聯(lián)。（2）設置菜單項與ImageList中的圖像關聯(lián)設置某個菜單項的ImageIndex值，則ImageList中的圖像可以顯示在該菜單項中。第1個圖像的ImageIndex值為0，-1表示在菜單項中不使用圖標。其他組件與ImageList關聯(lián)的方法與此類似。9.2工具欄組件ToolBar在Delphi中工具欄是很重要的界面元素。一般把那些經常使用的菜單做成工具欄，使得用戶操作更加方便快捷。工具欄如圖9-6所示。使用Delphi可以制作出水準很高的工具欄。在Delphi中既可以使用SpeedButton制作工具欄，也可以使用ToolBar組件制作工具欄。SpeedButton制作工具欄請讀者自己完成。本節(jié)將介紹使用ToolBar制作工具欄。圖9-6可以拖放和?？康墓ぞ邫赥oolBar組件位于Win32組件面板上，它帶有自己的按鈕ToolButton，設置屬性可以將按鈕設計成各種不同的風格。1．ToolBar工具欄和ToolButton按鈕添加ToolBar到窗體上，鼠標右鍵單擊ToolBar，選擇“NewButton”或者“NewSeparator”可以創(chuàng)建ToolBar按鈕。按鈕ToolButton的屬性如下：（1）Style屬性：用于設置按鈕的樣式。按鈕的樣式有如下一些取值：tbsButton：一般的按鈕。tbsCheck：具有復選框功能的按鈕；也可以與其它按鈕一起形成一組單選按鈕。tbsDropDown：此類按鈕單擊可以彈出下拉菜單，下拉菜單由DropdownMenu屬性指定。tbsDivider：分隔符，有一豎線。tbsSeparator：分隔符，只留空位，沒有豎線。鼠標右鍵單擊ToolBar選擇“NewSeparator”產生此類分隔符。（2）Caption屬性：按鈕的標題文字。（3）Down屬性：按鈕是否按下，值為True表示按鈕被按下，否則按鈕為抬起狀。（4）ImageIndex屬性：按鈕圖標的序號，按鈕圖標來自ImageList。在ToolBar中設置Images屬性，可以設置ImageList。（5）Grouped屬性：值為True時按鈕可與其它按鈕形成一組單選按鈕。在該組按鈕中僅可以有一個按鈕被按下。（6）DropdownMenu屬性：決定按鈕的下拉菜單。按鈕ToolButton的屬性用于控制按鈕的外觀等屬性，而工具欄ToolBar的屬性則用于控制整個工具欄的外觀樣式，其屬性如下：（1）Align屬性：工具欄的位置，例如值為alTop表示工具欄在窗體頂部。（2）Flat屬性：值為True表示按鈕的平面樣式，否則按鈕是立體樣式。（3）Images屬性：設置ImageList，為ToolButton提供圖標。（4）ShowCaption屬性：值為True時在ToolButton上顯示Caption，否則不顯示Caption。2．ToolBar工具欄的應用【例9-2】利用ToolBar制作一個工具欄，用于設置標簽的字體。步驟如下：（1）在窗體上添加ToolBar工具欄組件ToolBar1、標簽Label1、彈出式菜單PopupMenu1、圖像列標組件IamgeList1共4個組件。（2）在PopupMenu1中添加3個Caption分別為“10號”、“20號”和“30號”的菜單項n1、n2和n3。并把這3個菜單項設置為單選菜單，操作方法此處省略。在ImageList1中添加圖標兩個，如圖9-6右圖所示。（3）設置ToolBar1的屬性，參見表9-1。表9-1ToolBar1的屬性

（4）為ToolBar1添加6個按鈕。設置這些按鈕的屬性，屬性參見表9-2。表9-2各個按鈕的屬性設置圖9-7程序設計界面和ImageList組件對話框至此，程序界面如圖9-7左所示。（5）編寫代碼如下：procedureTForm1.ToolButton1Click(Sender:TObject);beginlabel1.Font.Name:='宋體'end;procedureTForm1.ToolButton2Click(Sender:TObject);beginlabel1.F:='隸書'end;procedureTForm1.ToolButton4Click(Sender:TObject);beginiftoolbutton4.Downthenlabel1.Font.Style:=label1.Font.Style+[fsitalic]elselabel1.Font.Style:=label1.Font.Style-[fsitalic]end;procedureTForm1.ToolButton5Click(Sender:TObject);beginiftoolbutton5.Downthenlabel1.Font.Style:=label1.Font.Style+[fsunderline]elselabel1.Font.Style:=label1.Font.Style-[fsunderline]end;procedureTForm1.n1Click(Sender:TObject);beginlabel1.Font.Size:=10end;procedureTForm1.n2Click(Sender:TObject);beginlabel1.Font.Size:=20end;procedureTForm1.n3Click(Sender:TObject);beginlabel1.Font.Size:=30end;（6）按F9鍵運行程序，運行結果如圖9-8歲示。圖9-8程序運行結果（6）按F9鍵運行程序，運行結果如圖9-8歲示。3．利用CoolBar組件和ToolBar組件制作工具欄CoolBar組件是一個容器組件，可以在CoolBar中添加多個單元格，每個單元格可以用來存放其它組件，例如存放工具欄。CoolBar組件在Win32組件面板中。鼠標右鍵單擊CoolBar組件，選擇菜單“BandsEditor…”，出現(xiàn)“EditingCoolBar1.Bands”對話框，在這里可以添加單元格。鼠標右鍵單擊“EditingCoolBar1.Bands”空白處選擇“Add”可以為CoolBar添加單元格。如圖9-9就是添加了兩個單元格的CoolBar。圖9-9CoolBar組件CoolBar組件的常用屬性如下：（1）AutoSize屬性：單元格是否自動調節(jié)大小適應單元格中的組件。（2）DockSite屬性：是否可以?？科渌M件，值為True時間，可以接受?？?。單元格的常用屬性如下：（1）Control屬性：單元格中存放的組件，例如可以是工具欄。（2）Text屬性：單元格的文字。【例9-3】利用CoolBar組件和CoolBar組件制作專業(yè)級的工具欄。步驟如下：（1）添加ToolBar組件。在窗體上添加ToolBar組件ToolBar1、ToolBar2和圖像列表組件ImageList1。在ToolBar1中添加3個按鈕，在ToolBar2中添加4個按鈕。在ImageList1中添加7個圖標。設置ToolBar1、ToolBar2和這些按鈕的屬性（此處省略）。設置屬性后的界面如圖9-10所示。（2）添加CoolBar組件。在窗體上添加CoolBar組件CoolBar1。鼠標右鍵單擊CoolBar1空白處，選擇菜單“BandsEditor…”，出現(xiàn)“EditingCoolBar1.Bands”對話框。鼠標右鍵單擊“EditingCoolBar1.Bands”對話框空白處，選擇“Add”為CoolBar添加兩個單元格。界面如圖9-11所示。（3）將ToolBar加入CoolBar單元格。設置CoolBar1第0單元格的Control屬性為ToolBar1，設置CoolBar1第1單元格的Control屬性為ToolBar1。將CoolBar1的Autosize設置為True。此時界面如圖9-12左所示。圖9-12加入CoolBar中的工具欄以及運行效果（4）實現(xiàn)拖放和?？康墓δ?，實現(xiàn)拖放和?？抗δ埽仨氃O置三個重要的屬性，很多組件都有這三個屬性，讀者應該舉一反三。設置ToolBar1和ToolBar2的DragKind為dkDock。表示ToolBar1和ToolBar2可以拖放。并設置ToolBar1和ToolBar2的DragMode為Automatic。表示使用鼠標自動拖放，無需使用代碼。拖放后的工具欄如圖9-13左所示。設置CoolBar1的DockSite屬性為True，表示CoolBar可以?？?。?？亢蟮慕缑嫒鐖D9-13右所示。圖9-13可以拖放和?？康墓ぞ邫冢?）工具欄拖出來后，可以點擊關閉按鈕關閉掉，此時執(zhí)行語句ToolBar1.Visible:=true可以將工具欄再次顯示出來。說明：本程序主要講述工具欄的制作，因此代碼編寫本程序沒有涉及到。另外很多組件都有DragMode、DockSite和DragKind屬性，請讀者舉一反三。9.3狀態(tài)欄組件StatusBar和菜單、工具欄一樣，狀態(tài)欄也是Delphi中重要的界面元素。菜單和工具欄主要進行輸入操作。而狀態(tài)欄主要進行輸出操作，用戶根據(jù)狀態(tài)欄的“狀態(tài)”可以了解到程序執(zhí)行情況。狀態(tài)欄組件在Win32組件面板中。StatusBar有兩種結構：單面板和多面板，由屬性SimplePanel屬性決定。SimplePanel屬性值為True時是單面板，否則是多面板。1．單面板當StatusBar的SimplePanel屬性值為true時，狀態(tài)欄是單面板，狀態(tài)欄的文本內容由SimpleText屬性決定。2．多面板當StatusBar的SimplePanel屬性值為false時，狀態(tài)欄是多面板。多面板的每格都有自己的屬性。可以使用EditingStatusbar1.Panels編輯器編輯狀態(tài)欄的子面板（格）。雙擊StatusBar組件打開EditingStatusbar1.Panels編輯器。鼠標右鍵單擊空白處選擇“Add”添加狀態(tài)欄的子面板（格）。如圖9-14所示是添加了3個子面板的狀態(tài)欄。圖9-14添加了3格的狀態(tài)欄以及其屬性設置使用編輯器上面提供的工具欄按鈕，可以實現(xiàn)子面板的編輯功能。AddNew按鈕：用于添加子面板。DeleteSelect按鈕：刪除所選擇的子面板。MoveSelectedUp按鈕：將所選按鈕向上移動。MoveSelectedDown按鈕：將所選按鈕向下移動。3．狀態(tài)欄的應用【例9-4】為例題【例9-2】制作狀態(tài)欄。步驟如下：（1）在窗體上添加狀態(tài)欄。為狀態(tài)欄添加4個子面板，添加一個計時器組件Timer1。（2）為子面板設置Text屬性值，分別為“字體：”、“字形：”、“大小：”和“時間：”，設置每個子面板的寬度分別為60、100、90、80，如圖9-15所示。圖9-15為例題【例9-2】制作狀態(tài)欄（3）編寫程序，如下：procedureTForm1.ToolButton1Click(Sender:TObject);beginlabel1.Font.Name:='宋體';statusbar1.Panels[0].Text:='字體:宋體';//第1格end;procedureTForm1.ToolButton2Click(Sender:TObject);beginlabel1.F:='隸書';statusbar1.Panels[0].Text:='字體:隸書';end;procedureTForm1.ToolButton4Click(Sender:TObject);beginiftoolbutton4.Downthenlabel1.Font.Style:=label1.Font.Style+[fsitalic]elselabel1.Font.Style:=label1.Font.Style-[fsitalic];if(fsitalicinlabel1.Font.Style)and(fsunderlineinlabel1.Font.Style)thenstatusbar1.Panels[1].Text:='字形:斜體,下劃線'//第2格

thenstatusbar1.Panels[1].Text:='字形:斜體'thenstatusbar1.Panels[1].Text:='字形:下劃線'elsestatusbar1.Panels[1].Text:='字形:'end;procedure