第04章 菜單、工具欄和對(duì)話框

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

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

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

4、結(jié)構(gòu) 文件(&F)File1新建(&N)New1幫助(&H)Help1查看(&V)View1編輯(&E)Edit1打印機(jī)設(shè)置(&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大圖標(biāo)(&G)Large

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

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

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

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

9、定單面板與多面板。屬性決定單面板與多面板?！纠纠?.4】 設(shè)計(jì)狀態(tài)欄。設(shè)計(jì)狀態(tài)欄。添加狀態(tài)欄添加狀態(tài)欄 顯示光標(biāo)當(dāng)前位置顯示光標(biāo)當(dāng)前位置 顯示數(shù)據(jù)修改過的狀態(tài)顯示數(shù)據(jù)修改過的狀態(tài) 顯示系統(tǒng)時(shí)間顯示系統(tǒng)時(shí)間 Delphi 程序設(shè)計(jì)4.4 消息框與輸入框消息框與輸入框 消息框與信息函數(shù)消息框與信息函數(shù) 輸入框與輸入函數(shù)輸入框與輸入函數(shù) Delphi 程序設(shè)計(jì)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)改動(dòng)，是否存盤？數(shù)據(jù)已經(jīng)改動(dòng)，是否存盤？,mtConfirmation, mbYes,mbNO,mbCancel,1);3.MessageDlgPos函數(shù)函數(shù) Delphi 程序設(shè)計(jì)4.4.2 輸入框與輸入函數(shù)輸入框與輸入函數(shù)1.InputBox函數(shù)函數(shù)function InputBox(const ACaption, APrompt,ADefault

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

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

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

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

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