1、Delphi 程序設(shè)計基礎(chǔ)與上機(jī)指導(dǎo),第七章 Win32 組件及系統(tǒng)功能調(diào)用,使用菜單 分類,兩類菜單 主菜單和快捷菜單 不同的用法 不同的使用場合 相同點(diǎn),菜單設(shè)計器 主菜單,創(chuàng)建菜單組 操作步驟 菜單組的屬性 菜單組的設(shè)計,菜單設(shè)計器 主菜單,子菜單 新建子菜單項 新建多個子菜單項 菜單項的快捷鍵 菜單項的標(biāo)題 菜單項的加速鍵 菜單項分組,菜單設(shè)計器 主菜單,子菜單分組 子菜單按照功能分組 分組菜單之間的分隔符,菜單設(shè)計器 主菜單,子菜單項的子菜單 多級菜單的設(shè)計方法 菜單的分級標(biāo)準(zhǔn) 低級菜單的設(shè)計 低級菜單的命名,菜單設(shè)計器 主菜單,子菜單項的圖標(biāo) 使用ImageList組件 管理圖片列

2、表 為菜單項設(shè)置圖標(biāo) 具體的實(shí)例,菜單設(shè)計器 主菜單,使用菜單狀態(tài) 多個菜單項的分組控制 菜單的Checked狀態(tài) 使用代碼控制狀態(tài)的變換 具體的設(shè)計實(shí)例,菜單設(shè)計器 快捷菜單,快捷菜單 沒有多個菜單組 設(shè)計快捷菜單的菜單項 快捷菜單的子菜單項分組 加速鍵的設(shè)置,菜單功能 編寫代碼,為菜單OnClick事件句柄編寫代碼 簡單的實(shí)例 procedure TfrmMain.miFileExitClick(Sender: TObject); begin Close; end;,菜單功能 編寫代碼,切換主菜單 根據(jù)具體內(nèi)容改變主菜單 通過代碼實(shí)現(xiàn) procedure TfrmMain.cbxUseMa

3、inMenuClick(Sender: TObject); begin if(cbxUseMainMenu.Checked)then Menu := mmuMain else Menu := nil; end;,菜單功能 快捷菜單,如何設(shè)置快捷菜單 為快捷菜單編寫代碼 多個組件共享快捷菜單 快捷菜單菜單項狀態(tài)的控制,菜單功能 菜單狀態(tài),使用可見狀態(tài) 使用可見狀態(tài)可以控制菜單的可見性 在設(shè)計時刻可以設(shè)置菜單項的初始狀態(tài) 使用代碼控制菜單的可見性： procedure TfrmMain.pmuEditPopup(Sender: TObject); begin miCut.Visible := (r

4、etContent.SelLength 0); miCopy.Visible := (retContent.SelLength 0); miPaste.Visible := (Clipboard.AsText ); end;,菜單功能 菜單狀態(tài),使用可用狀態(tài) 通過Enable屬性控制菜單項是否可用 在設(shè)計時刻可以初始化菜單項的狀態(tài) 使用代碼可以控制菜單項的狀態(tài)： procedure TfrmMain.pmuEditPopup(Sender: TObject); begin miCut.Visible := (retContent.SelLength 0); miCopy.Visible :=

5、(retContent.SelLength 0); miPaste.Visible := (Clipboard.AsText ); miCut.Enabled := (retContent.SelLength 0); miCopy.Enabled := (retContent.SelLength 0); miPaste.Enabled := (Clipboard.AsText ); end;,菜單功能 思考,除了使用菜單設(shè)計器菜單，所有菜單都可以通過代碼動態(tài)的創(chuàng)建！,工具欄 設(shè)計,設(shè)計工具欄 選擇CoolBar組件 添加工具欄組件 設(shè)置工具欄的ImageList屬性 創(chuàng)建工具按鈕 設(shè)置工具按鈕

6、的屬性 設(shè)置工具按鈕的圖標(biāo),工具欄 使用,工具欄與菜單的結(jié)合 設(shè)置工具欄的List屬性 設(shè)置工具欄的ShowCaptions屬性 設(shè)置菜單項與工具按鈕的對應(yīng)關(guān)系,工具欄 特殊用法,工具欄特殊用法 工具欄組件的Flat屬性 工具欄組件的ShowCaptions屬性 在工具欄組件上放置其他特殊組件 為工具按鈕編寫代碼 具體實(shí)例程序,狀態(tài)欄 單面板狀態(tài)欄,特殊形狀的窗口 打開菜單設(shè)計器窗口 為菜單項設(shè)置提示信息屬性 設(shè)置菜單項的ShowHint屬性 添加函數(shù)函數(shù)DisplayHint 為應(yīng)用程序設(shè)置OnHint事件句柄,狀態(tài)欄 多面板狀態(tài)欄,多面板狀態(tài)欄 設(shè)置多面板 設(shè)置面板的對齊和寬度等屬性 設(shè)置

7、狀態(tài)欄的文字 通過代碼設(shè)置屬性 簡單實(shí)例,工具欄和狀態(tài)欄 思考,完善實(shí)例程序,列表視圖框 設(shè)計,設(shè)計列表視圖框 使用ViewStyle屬性 創(chuàng)建多個列表項 為列表項設(shè)置圖標(biāo) 設(shè)置列表項的寬度、對齊方式 利用代碼控制列表項 實(shí)例程序,列表視圖框 編碼,控制列表視圖框 用代碼添加和刪除列表項 用代碼改變列表的顯示方式 比較完整的實(shí)例程序,樹狀列表框 列表,控制樹狀列表 AddChildObject AddChild AddChildFirst AddChildObjectFirst 遞歸方法,樹狀列表框 思考,完善文件列表框,定時觸發(fā)器 用法,定時觸發(fā)器 設(shè)置定時間隔 設(shè)置定時器的狀態(tài) 使用定時觸發(fā)器顯示時間 定時觸發(fā)器的計時功能,媒體播放器 用法,媒體播放器 界面定制 自動播放媒體 媒體類型,媒體播放器 進(jìn)度控制,使用代碼控制