Delphi程序設(shè)計(jì)基礎(chǔ)與上機(jī)指導(dǎo)演講稿第07章.ppt

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

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

3、inMenuClick(Sender: TObject); begin if(cbxUseMainMenu.Checked)then Menu := mmuMain else Menu := nil; end;,菜單功能 快捷菜單,如何設(shè)置快捷菜單 為快捷菜單編寫(xiě)代碼 多個(gè)組件共享快捷菜單 快捷菜單菜單項(xiàng)狀態(tài)的控制,菜單功能 菜單狀態(tài),使用可見(jiàn)狀態(tài) 使用可見(jiàn)狀態(tài)可以控制菜單的可見(jiàn)性 在設(shè)計(jì)時(shí)刻可以設(shè)置菜單項(xiàng)的初始狀態(tài) 使用代碼控制菜單的可見(jiàn)性： 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) 通過(guò)Enable屬性控制菜單項(xiàng)是否可用 在設(shè)計(jì)時(shí)刻可以初始化菜單項(xiàng)的狀態(tài) 使用代碼可以控制菜單項(xiàng)的狀態(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è)計(jì)器菜單，所有菜單都可以通過(guò)代碼動(dòng)態(tài)的創(chuàng)建！,工具欄 設(shè)計(jì),設(shè)計(jì)工具欄 選擇CoolBar組件 添加工具欄組件 設(shè)置工具欄的ImageList屬性 創(chuàng)建工具按鈕 設(shè)置工具按鈕

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

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