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

1、 Delphi 程序設(shè)計(chn x sh j)葉核亞人民郵電出版社主講(zhjing):麥雄發(fā)Email:M博客：共二十八頁 Delphi 程序設(shè)計(chn x sh j)第1章 Delphi 2005簡介第2章 Object Pascal語言基礎(chǔ)第3章 Windows應(yīng)用程序界面設(shè)計第4章 菜單、工具欄和對話框第5章 使用復(fù)雜組件第6章 面向?qū)ο蟮暮诵?hxn)特性第7章 多文檔界面設(shè)計第8章 程序調(diào)試與異常處理第9章 文件操作和流第10章 多媒體應(yīng)用設(shè)計第11章 數(shù)據(jù)庫應(yīng)用設(shè)計第12章 綜合應(yīng)用設(shè)計共二十八頁第4章 菜單(ci dn)、工具欄和對話框4.1 菜單(ci dn)4.2 行為

2、列表組件ActionList4.3 工具欄與狀態(tài)欄4.4 消息框與輸入框4.5 Windows通用對話框 Delphi 程序設(shè)計共二十八頁4.1 菜單(ci dn)4.1.1 主菜單(ci dn)MainMenu4.1.2 彈出式菜單PopupMenu4.1.3 菜單圖像與圖像列表組件ImageList Delphi 程序設(shè)計共二十八頁4.1.1 主菜單(ci dn)MainMenu主菜單是相對于窗口而言的，它出現(xiàn)(chxin)在窗口的標(biāo)題欄下，與窗口同時出現(xiàn)(chxin)。 菜單設(shè)計器菜單項的特性菜單項的狀態(tài)復(fù)選單選 Delphi 程序設(shè)計共二十八頁【例4.1】 設(shè)計(shj)主菜單。添加主

3、菜單組件(z jin) 添加菜單項 設(shè)置分隔條 子菜單 設(shè)置快捷鍵和加速鍵設(shè)置有效狀態(tài) 設(shè)置復(fù)選標(biāo)志 設(shè)置單選標(biāo)志 編寫菜單項的事件處理程序 Delphi 程序設(shè)計共二十八頁菜單(ci dn)結(jié)構(gòu) Delphi 程序設(shè)計(chn x sh j)共二十八頁4.1.2 彈出式菜單(ci dn)PopupMenu彈出式菜單是相對于控件而言的將某個控件的PopupMenu屬性(shxng)設(shè)置為一個已存在的彈出式菜單 Delphi 程序設(shè)計共二十八頁4.1.3 菜單圖像與圖像列表(li bio)組件ImageList圖像列表組件中添加圖像菜單(ci dn)與圖像列表組件相關(guān)聯(lián)菜單組件與圖像列表組件相關(guān)

4、聯(lián)菜單項與ImageList中的指定圖像相關(guān)聯(lián) Delphi 程序設(shè)計共二十八頁4.2 行為(xngwi)列表組件ActionList行為(xngwi)（Action）ActionList編輯器添加標(biāo)準(zhǔn)行為自定義行為 Delphi 程序設(shè)計共二十八頁【例4.2】 使用ActionList組件設(shè)計(shj)菜單。添加系統(tǒng)定義的Cut、Copy和Paste等標(biāo)準(zhǔn)行為(xngwi)添加組件 為ActionList添加行為 使用Action屬性創(chuàng)建菜單項 Delphi 程序設(shè)計共二十八頁4.3 工具欄與狀態(tài)欄4.3.1 工具欄ToolBar4.3.2 狀態(tài)欄StatusBar Delphi 程序設(shè)計(

5、chn x sh j)共二十八頁4.3.1 工具欄ToolBar創(chuàng)建(chungjin)ToolBar的按鈕ToolButton執(zhí)行New Button執(zhí)行New SeparatorToolBar上添加其他組件 Delphi 程序設(shè)計(chn x sh j)共二十八頁【例4.3】 設(shè)計(shj)工具欄。建立常用與格式工具欄，演示自定義行為的操作。設(shè)計常用工具欄 格式工具欄上添加按鈕添加帶下拉菜單的按鈕 格式工具欄上添加ComboBox、SpinEdit等組件 格式工具欄的狀態(tài)隨著光標(biāo)位置(wi zhi)處文本字體的改變而改變 顯示與隱藏工具欄 自定義行為 Delphi 程序設(shè)計共二十八頁4.3

6、.2 狀態(tài)欄StatusBarSimplePanel屬性決定單面板與多面板?！纠?.4】 設(shè)計(shj)狀態(tài)欄。添加狀態(tài)欄 顯示光標(biāo)當(dāng)前位置 顯示數(shù)據(jù)修改過的狀態(tài) 顯示系統(tǒng)時間 Delphi 程序設(shè)計(chn x sh j)共二十八頁4.4 消息(xio xi)框與輸入框4.4.1 消息(xio xi)框與信息函數(shù)4.4.2 輸入框與輸入函數(shù) Delphi 程序設(shè)計共二十八頁4.4.1 消息框與信息(xnx)函數(shù)ShowMessage過程procedure ShowMessage(const Msg : string);MessageDlg函數(shù)function MessageDlg(const

7、 Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons;HelpCtx: integer): integer;例如，MessageDlg(數(shù)據(jù)(shj)已經(jīng)改動，是否存盤？,mtConfirmation, mbYes,mbNO,mbCancel,1);MessageDlgPos函數(shù) Delphi 程序設(shè)計共二十八頁4.4.2 輸入(shr)框與輸入(shr)函數(shù)InputBox函數(shù)(hnsh)function InputBox(const ACaption, APrompt,ADefault:string):string;例如，L

8、oginName:=InputBox(登錄,請輸入用戶名:,guest);InputQuery函數(shù)function InputQuery(const ACaption, APrompt:string;var Value:string):Boolean; Delphi 程序設(shè)計共二十八頁4.5 Windows通用(tngyng)對話框4.5.1 打開與保存文件對話框4.5.2 字體與顏色對話框4.5.3 查找(ch zho)與替換對話框4.5.4 頁面設(shè)置、打印與打印設(shè)置對話框 Delphi 程序設(shè)計共二十八頁對話框組件(z jin)類 Delphi 程序設(shè)計(chn x sh j)共二十八頁4

9、.5.1 打開與保存(bocn)文件對話框打開文件對話框（OpenDialog）調(diào)用打開文件對話框：執(zhí)行Execute方法(fngf) OpenDialog組件的屬性：FileName、InitialDir 、Filter 、Options OpenDialog的主要事件：OnFolderChange 保存文件對話框（SaveDialog）打開與保存圖形文件對話框 Delphi 程序設(shè)計共二十八頁4.5.2 字體(zt)與顏色對話框字體對話框（FontDialog）執(zhí)行 Execute方法，所選字體存儲在FontDialog.Font屬性中 顏色對話框（ColorDialog）執(zhí)行 Execu

10、te方法，所選顏色存儲在ColorDialog.Color屬性中 TColor類以RGB函數(shù)值表示(biosh)顏色：RGB（255,0,0） 以常量值表示顏色：clRed、clGreen Delphi 程序設(shè)計共二十八頁4.5.3 查找(ch zho)與替換對話框查找(ch zho)對話框（FindDialog）執(zhí)行Execute方法 FindDialog的屬性FindText屬性，保存查找內(nèi)容字符串。Options屬性，集合類型，設(shè)置全字匹配、區(qū)分大小寫、查找方向等選項。FindDialog的事件OnFind事件，單擊【查找下一個】按鈕時觸發(fā)。OnClose事件，單擊【取消】按鈕時觸發(fā)。

11、Delphi 程序設(shè)計共二十八頁2. 替換(t hun)對話框（ReplaceDialog）執(zhí)行Execute方法 ReplaceDialog的屬性FindText屬性，保存查找內(nèi)容字符串。ReplaceText屬性，保存替換內(nèi)容字符串。Options屬性，設(shè)置選項。ReplaceDialog的事件OnFind事件，單擊【查找下一個】按鈕時觸發(fā)。OnClose事件，單擊【取消(qxio)】按鈕時觸發(fā)。OnReplace事件，單擊【替換】或【全部替換】按鈕時觸發(fā)。 Delphi 程序設(shè)計共二十八頁【例4.5】 調(diào)用(dioyng)系統(tǒng)對話框。新建文件功能 打開文件 保存(bocn)與另存文件設(shè)置

12、字體 改變顏色查找 替換替換算法描述 調(diào)用指定事件處理程序 父類對象與子類對象的識別 Delphi 程序設(shè)計共二十八頁4.5.4 頁面設(shè)置、打印(d yn)與打印(d yn)設(shè)置對話框頁面設(shè)置對話框（PageSetupDialog）打印(d yn)對話框（PrintDialog）打印設(shè)置對話框（PrinterSetupDialog） Delphi 程序設(shè)計共二十八頁實驗(shyn)4 設(shè)計菜單、工具欄實驗1自動(zdng)判題實驗2設(shè)計記事本或?qū)懽职?Delphi 程序設(shè)計共二十八頁內(nèi)容摘要 Delphi 程序設(shè)計。 Delphi 程序設(shè)計。 Delphi 程序設(shè)計。博客：。第4章 菜單、工具欄和對話框。第5章 使用復(fù)雜組件。第6章 面向?qū)ο蟮暮诵奶匦?。?章 文件操作和流。第12章 綜合應(yīng)