第04章 菜單、工具欄和對話框

1、 Delphi 程序設計程序設計葉核亞葉核亞人民郵電出版社人民郵電出版社v主講:麥雄發(fā)vEmail:Mv博客：http:/ Delphi 程序設計程序設計v第1章 Delphi 2005簡介v第2章 Object Pascal語言基礎v第3章 Windows應用程序界面設計v第4章 菜單、工具欄和對話框v第5章 使用復雜組件v第6章 面向?qū)ο蟮暮诵奶匦詖第7章 多文檔界面設計v第8章 程序調(diào)試與異常處理v第9章 文件操作和流v第10章 多媒體應用設計v第11章 數(shù)據(jù)庫應用設計v第12章 綜合應用設計 Delphi 程序設計第第4章章 菜單、工具欄和對話框菜單、工具欄和對話框1.4.1 菜單菜單

2、2.4.2 行為列表組件行為列表組件ActionList3.4.3 工具欄與狀態(tài)欄工具欄與狀態(tài)欄4.4.4 消息框與輸入框消息框與輸入框5.4.5 Windows通用對話框通用對話框 Delphi 程序設計4.1 菜單菜單 主菜單主菜單MainMenu 彈出式菜單彈出式菜單PopupMenu 菜單圖像與圖像列表組件菜單圖像與圖像列表組件ImageListTComponent組件類TMainMenu主菜單類TMenuTMenuItem菜單項類TPopupMenu彈出式菜單類 Delphi 程序設計4.1.1 主菜單主菜單MainMenu主菜單是相對于窗口

3、而言的，它出現(xiàn)在窗主菜單是相對于窗口而言的，它出現(xiàn)在窗口的標題欄下，與窗口同時出現(xiàn)?？诘臉祟}欄下，與窗口同時出現(xiàn)。 1.菜單設計器菜單設計器2.菜單項的特性菜單項的特性3.菜單項的狀態(tài)菜單項的狀態(tài)復選復選單選單選 Delphi 程序設計【例【例4.1】 設計主菜單。設計主菜單。1.添加主菜單組件添加主菜單組件 2.添加菜單項添加菜單項 3.設置分隔條設置分隔條 4.子菜單子菜單 5.設置快捷鍵和加速鍵設置快捷鍵和加速鍵6.設置有效狀態(tài)設置有效狀態(tài) 7.設置復選標志設置復選標志 8.設置單選標志設置單選標志 9.編寫菜單項的事件處理程序編寫菜單項的事件處理程序 Delphi 程序設計菜單結(jié)構(gòu)菜單

4、結(jié)構(gòu) 文件(&F)File1新建(&N)New1幫助(&H)Help1查看(&V)View1編輯(&E)Edit1打印機設置(&R)PrinterSetup1另存為(&A)SaveAs1保存(&S)Save1打開(&O)Open1撤銷(&U)Undo1背景顏色(&O)Color1字體(&N)Font1粘貼(&P)Paste1剪切(&T)Cut1狀態(tài)欄(&S)mStatusBar1格式(&S)Style1常用(&N)Normal1大圖標(&G)Large

5、Icon1工具欄(&T)mToolBar1退出(&X)Exit1替換(&R)Replace1查找(&F)Find1關(guān)于(&A)About1打印(&P)Print1復制(&C)Copy1報告(&R)Report1列表(&L)List1小圖標(&M)SmallIcon1 Delphi 程序設計4.1.2 彈出式菜單彈出式菜單PopupMenu彈出式菜單是相對于控件而言的彈出式菜單是相對于控件而言的1.將某個控件的將某個控件的PopupMenu屬性設置為屬性設置為一個已存在的彈出式菜單一個已存在的彈出式菜單 Delphi

6、 程序設計4.1.3 菜單圖像與圖像列表組菜單圖像與圖像列表組件件ImageList1.圖像列表組件中添加圖像圖像列表組件中添加圖像2.菜單與圖像列表組件相關(guān)聯(lián)菜單與圖像列表組件相關(guān)聯(lián)菜單組件與圖像列表組件相關(guān)聯(lián)菜單組件與圖像列表組件相關(guān)聯(lián)菜單項與菜單項與ImageList中的指定圖像相關(guān)聯(lián)中的指定圖像相關(guān)聯(lián) Delphi 程序設計4.2 行為列表組件行為列表組件ActionList1.行為（行為（Action）2.ActionList編輯器編輯器3.添加標準行為添加標準行為4.自定義行為自定義行為 Delphi 程序設計【例【例4.2】 使用使用ActionList組組件設計菜單。件設計菜單

7、。添加系統(tǒng)定義的添加系統(tǒng)定義的Cut、Copy和和Paste等標準行為等標準行為1.添加組件添加組件 2.為為ActionList添加行為添加行為 3.使用使用Action屬性創(chuàng)建菜單項屬性創(chuàng)建菜單項 Delphi 程序設計4.3 工具欄與狀態(tài)欄工具欄與狀態(tài)欄 工具欄工具欄ToolBar 狀態(tài)欄狀態(tài)欄StatusBar Delphi 程序設計4.3.1 工具欄工具欄ToolBar1.創(chuàng)建創(chuàng)建ToolBar的按鈕的按鈕ToolButton執(zhí)行執(zhí)行New Button執(zhí)行執(zhí)行New Separator2.ToolBar上添加其他組件上添加其他組件 Delphi 程序設計

8、【例【例4.3】 設計工具欄。設計工具欄。建立常用與格式工具欄，演示自定義行為的操作。建立常用與格式工具欄，演示自定義行為的操作。1.設計常用工具欄設計常用工具欄 2.格式工具欄上添加按鈕格式工具欄上添加按鈕3.添加帶下拉菜單的按鈕添加帶下拉菜單的按鈕 4.格式工具欄上添加格式工具欄上添加ComboBox、SpinEdit等組件等組件 5.格式工具欄的狀態(tài)隨著光標位置處文本字體的改變格式工具欄的狀態(tài)隨著光標位置處文本字體的改變而改變而改變 6.顯示與隱藏工具欄顯示與隱藏工具欄 7.自定義行為自定義行為 Delphi 程序設計4.3.2 狀態(tài)欄狀態(tài)欄StatusBarSimplePanel屬性決

9、定單面板與多面板。屬性決定單面板與多面板?！纠纠?.4】 設計狀態(tài)欄。設計狀態(tài)欄。添加狀態(tài)欄添加狀態(tài)欄 顯示光標當前位置顯示光標當前位置 顯示數(shù)據(jù)修改過的狀態(tài)顯示數(shù)據(jù)修改過的狀態(tài) 顯示系統(tǒng)時間顯示系統(tǒng)時間 Delphi 程序設計4.4 消息框與輸入框消息框與輸入框 消息框與信息函數(shù)消息框與信息函數(shù) 輸入框與輸入函數(shù)輸入框與輸入函數(shù) Delphi 程序設計4.4.1 消息框與信息函數(shù)消息框與信息函數(shù)1.ShowMessage過程過程procedure ShowMessage(const Msg : string);2.MessageDlg函數(shù)函數(shù)function M

10、essageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons;HelpCtx: integer): integer;例如，例如，MessageDlg(數(shù)據(jù)已經(jīng)改動，是否存盤？數(shù)據(jù)已經(jīng)改動，是否存盤？,mtConfirmation, mbYes,mbNO,mbCancel,1);3.MessageDlgPos函數(shù)函數(shù) Delphi 程序設計4.4.2 輸入框與輸入函數(shù)輸入框與輸入函數(shù)1.InputBox函數(shù)函數(shù)function InputBox(const ACaption, APrompt,ADefault

11、:string):string;例如，例如，LoginName:=InputBox(登錄登錄,請輸入用請輸入用戶名戶名:,guest);2.InputQuery函數(shù)函數(shù)function InputQuery(const ACaption, APrompt:string;var Value:string):Boolean; Delphi 程序設計4.5 Windows通用對話框通用對話框 打開與保存文件對話框打開與保存文件對話框 字體與顏色對話框字體與顏色對話框 查找與替換對話框查找與替換對話框 頁面設置、打印與打印設置對話頁面設置、打印與

12、打印設置對話框框 Delphi 程序設計對話框組件類對話框組件類 TCommonDialogTSaveDialog保存文件對話框TOpenDialog打開文件對話框TFindDialog查找對話框TOpenPictureDialog打開圖像文件對話框TComponent組件類TReplaceDialog替換對話框TSavePictureDialog保存圖像文件對話框TFontDialog字體對話框TColorDialog顏色對話框TPrintDialog打印對話框TPrinterSetupDialog打印設置對話框TPageSetupDialog頁面設置對話框 Delphi 程序設計4.5.1

13、 打開與保存文件對話框打開與保存文件對話框1.打開文件對話框（打開文件對話框（OpenDialog）調(diào)用打開文件對話框：執(zhí)行調(diào)用打開文件對話框：執(zhí)行Execute方法方法 OpenDialog組件的屬性：組件的屬性：FileName、InitialDir 、Filter 、Options OpenDialog的主要事件：的主要事件：OnFolderChange 2.保存文件對話框（保存文件對話框（SaveDialog）3.打開與保存圖形文件對話框打開與保存圖形文件對話框 Delphi 程序設計4.5.2 字體與顏色對話框字體與顏色對話框1.字體對話框（字體對話框（FontDialog）執(zhí)行執(zhí)行

14、 Execute方法，所選字體存儲在方法，所選字體存儲在FontDialog.Font屬性中屬性中 2.顏色對話框（顏色對話框（ColorDialog）執(zhí)行執(zhí)行 Execute方法，所選顏色存儲在方法，所選顏色存儲在ColorDialog.Color屬性中屬性中 3.TColor類類以以RGB函數(shù)值表示顏色：函數(shù)值表示顏色：RGB（255,0,0） 以常量值表示顏色：以常量值表示顏色：clRed、clGreen Delphi 程序設計4.5.3 查找與替換對話框查找與替換對話框1.查找對話框（查找對話框（FindDialog）執(zhí)行執(zhí)行Execute方法方法 FindDialog的屬性的屬性nF

15、indText屬性，保存查找內(nèi)容字符串。nOptions屬性，集合類型，設置全字匹配、區(qū)分大小寫、查找方向等選項。FindDialog的事件的事件nOnFind事件，單擊【查找下一個】按鈕時觸發(fā)。nOnClose事件，單擊【取消】按鈕時觸發(fā)。 Delphi 程序設計2. 替換對話框替換對話框（ReplaceDialog）1.執(zhí)行執(zhí)行Execute方法方法 2.ReplaceDialog的屬性的屬性FindText屬性，保存查找內(nèi)容字符串。屬性，保存查找內(nèi)容字符串。ReplaceText屬性，保存替換內(nèi)容字符串。屬性，保存替換內(nèi)容字符串。Options屬性，設置選項。屬性，設置選項。3.ReplaceDialog的事件的事件OnFind事件，單擊【查找下一個】按鈕時觸發(fā)。事件，單擊【查找下一個】按鈕時觸發(fā)。OnClose事件，單擊【取消】按鈕時觸發(fā)。事件，單擊【取消】按鈕時觸發(fā)。OnReplace事件，單擊【替換】或【全部替換】按鈕事件，單擊【替換】或【全部替換】按鈕時觸發(fā)。時觸發(fā)。 Delphi 程序設計【例【例4.5】 調(diào)用系統(tǒng)對話框。調(diào)用系統(tǒng)對話框。1.新建文件功能新建文件功能 2.打開文件打開文件 3.保存與另存文件保存與另存文件4.設置字體設置字體 5.改變顏色改變顏色6.查找查找 7.替換替換a)替換算法描述替換算法描述 b)調(diào)用指定事件處理程調(diào)用指定