【正文】 nt:string。 begin name:=trim()。 if =true then sex:=39。男 39。 else sex:=39。女 39。 birth:=datetostr()。 // department:=+ 。 (* *) :=name+? ?+sex+? 出生于 ‘ + birth +chr(13)。 := +?在 ’ + department+?工作 ’ 。 end。 第 3章 窗體和常用組件 有關(guān) Win32組件應(yīng)用 運(yùn)行程序： 運(yùn)行結(jié)果 第 3章 窗體和常用組件 System類(lèi)組件 1. Timer組件 Timer是計(jì)時(shí)器組件，通常用于在應(yīng)用程序中處理復(fù)發(fā)事件。該組件由系統(tǒng)時(shí)鐘控制，按指定的時(shí)間間隔執(zhí)行操作（即該 組件的 Timer事件）。 Timer組件的主要屬性有： l Enabled屬性： 該屬性用來(lái)控制計(jì)時(shí)器是否掛起。 l Interval屬性： 指定計(jì)時(shí)器組件的 Timer事件之間的時(shí)間 間隔 ， 單位為毫秒 。 屬性值為 0時(shí) ， 計(jì)時(shí)器不響應(yīng) Timer事件 。 第 3章 窗體和常用組件 運(yùn)用定時(shí)器和圖片框設(shè)計(jì)一個(gè)簡(jiǎn)單的動(dòng)畫(huà) 【 例 】 運(yùn)用定時(shí)器和圖片框設(shè)計(jì)一個(gè)簡(jiǎn)單的動(dòng)畫(huà) 。 （ 1） 動(dòng)畫(huà)場(chǎng)景： 界面有 2個(gè)按鈕 “ 放大 ” 和 “ 暫停 ” （ btnsize和 btnpause） 、1個(gè) TrackBar組件 （ speedBar） 、 1個(gè)圖像框 （ image1） 和 2個(gè) 標(biāo)簽組成 。 （ 2） 各對(duì)象的屬性設(shè)置 。 第 3章 窗體和常用組件 運(yùn)用定時(shí)器和圖片框設(shè)計(jì)一個(gè)簡(jiǎn)單的動(dòng)畫(huà) （ 3） 編寫(xiě)代碼 。 procedure (Sender: TObject)。// 單擊 “ 放大 ” ， 定時(shí)器開(kāi)始工作 begin :=true。 end。 procedure (Sender: TObject)。// 單擊 “ 放大 ” ， 使定時(shí)器無(wú)效 begin :=false。 end。 procedure (Sender: TObject)。 // 定時(shí)器定時(shí)放大圖像框的寬度和高度 begin := +20。 :=+28。 end。 procedure (Sender: TObject)。 // 軌跡條上滑塊位置的變化改變定時(shí)器的時(shí)間間隔 ， 以改變動(dòng)畫(huà)速度 begin :=。 end。 第 3章 窗體和常用組件 運(yùn)用定時(shí)器和圖片框設(shè)計(jì)一個(gè)簡(jiǎn)單的動(dòng)畫(huà) （ 4） 運(yùn)行程序 。 單擊 “ 放大 ” 按鈕 ， 圖像即開(kāi)始定時(shí)放大；單擊 “ 暫 停 ”按鈕 ， 則停止放大；改變 TrackBar組件上滑塊的位置可以改變放大 的速度 。 運(yùn)行結(jié)果 第 3章 窗體和常用組件 System類(lèi)組件 2. OleContainer組件 OLE，就是應(yīng)用程序之間交換數(shù)據(jù)和相互操縱的一種方式。在 Delphi中，可以通過(guò) OleContainer組件將其他類(lèi)型的對(duì)象鏈接或嵌入到窗體中。 創(chuàng)建一個(gè) OLE客戶(hù)程序的流程 : 把 OleContainer組件放到 Form上 ?設(shè)置它的位置和尺寸 ?雙擊OleContainer組件 ?顯示“插入對(duì)象”對(duì)話(huà)框 ?選擇 OLE對(duì)象的類(lèi)型?單擊“確定”按鈕，該類(lèi)型的對(duì)象將插入到 OLE容器中 “插入對(duì)象”對(duì)話(huà)框 第 3章 窗體和常用組件 System類(lèi)組件 要?jiǎng)?chuàng)建一個(gè)鏈接的 OLE對(duì)象，在“插入對(duì)象”對(duì)話(huà)框中若選擇“由文件創(chuàng)建”，在“文件”框內(nèi)鍵入文件名或單擊“瀏覽”按鈕來(lái)指定一個(gè)文件名，在單擊“確定”按鈕即可。 由文件創(chuàng)建 OLE對(duì)象 第 3章 窗體和常用組件 對(duì)話(huà)框類(lèi)組件 對(duì)話(huà)框類(lèi)組件位于組件面板的 Dialogs選項(xiàng)卡中 ， 對(duì)話(huà)框是 Windows應(yīng)用程序常用的一種交互形式 ， Delphi 7的對(duì)話(huà)框類(lèi)組件為應(yīng)用程序的設(shè)計(jì)帶來(lái)極大的方便 。 對(duì)話(huà)框類(lèi)組件在組件面板的位置 第 3章 窗體和常用組件 OpenDialog對(duì)話(huà)框 打開(kāi)對(duì)話(huà)框 （ OpenDialog） 組件為應(yīng)用程序顯示 “ 打開(kāi) ” 對(duì)話(huà)框 ，它是 Windows中最常用的對(duì)話(huà)框之一 ， 經(jīng)常使用該對(duì)話(huà)框選擇要打開(kāi)的文件 。 OpenDialog組件的主要屬性有： （ 1） Filters（ 過(guò)濾器 ） 屬性 : 該屬性可確定文件類(lèi)型和在文件 類(lèi)型下拉框中的順序 。 Filter Editor對(duì)話(huà)框 第 3章 窗體和常用組件 OpenDialog對(duì)話(huà)框 （ 2） FilterIndex屬性 當(dāng)為打開(kāi)對(duì)話(huà)框設(shè)置多個(gè)過(guò)濾器 ， 該屬性可以決定哪個(gè)過(guò)濾 器是文件類(lèi)型下拉框中的缺省過(guò)濾器 。 （ 3） DefaultText屬性 該屬性用來(lái)設(shè)置默認(rèn)的擴(kuò)展名 。 （ 4） FilesName屬性 該屬性用于設(shè)置當(dāng)打開(kāi)對(duì)話(huà)框時(shí) ， 在 “ 文件名 ” 文本框中出現(xiàn) 的默認(rèn)文件名 。 （ 5） Title屬性 該屬性用來(lái)設(shè)置對(duì)話(huà)框的標(biāo)題 。 （ 6） InitialDir屬性 該屬性用來(lái)設(shè)置對(duì)話(huà)框打開(kāi)時(shí)的默認(rèn)文件夾 。 第 3章 窗體和常用組件 （ 7） Options屬性 該屬性的 3個(gè)重要的取值含義如下： l OfReadOnly：若該屬性為 True， 則表示啟用 “ 只讀方式打開(kāi) ” 復(fù)選框 。 l OfCreatePrompt：若該屬性為 True， 則表示如果鍵入的文件 名是不存在的 ， 就要建立一個(gè)文件 ， 這時(shí)在單擊 OK按鈕 后 ， 將彈出一個(gè)對(duì)話(huà)框 ， 用以確認(rèn)是否要新建這個(gè)文件 。 l OfPathMustExist：若該屬性為 True， 則鍵入的文件名必須是 正確的 ， 若不正確 ， 將會(huì)彈出一個(gè)警告框 。 在程序中使用 Execute方法 ，可顯示 OpenDialog對(duì)話(huà)框 。 第 3章 窗體和常用組件 OpenDialog對(duì)話(huà)框 示例 【 例 】 在窗體上放置一個(gè) OpenDialog對(duì)話(huà)框 ， 一個(gè) memo組件和 一個(gè) button組件 ， 程序完成的功能是：當(dāng)用戶(hù)單擊 button按鈕 ， 彈 出打開(kāi)文件對(duì)話(huà)框 ， 文件過(guò)濾器設(shè)置是所有類(lèi)型的文件 ， 用戶(hù)選擇 了某個(gè)文件并按 “ OK”按鈕后所選文件的第一行內(nèi)容添加到 memo組 件中 。 在按鈕的 Click事件中編寫(xiě)代碼 : procedure (Sender: TObject)。 var I: integer。 F: TextFile。 FirstLine: string。 第 3章 窗體和常用組件 Begin {對(duì)文件可多選 ， 當(dāng)輸入的文件不存在時(shí) ， 顯示提示 } := [ofAllowMultiSelect, ofFileMustExist]。 {設(shè)置文件過(guò)濾器 } :=39。Text files (*.txt)|*.txt|All files (*.*)|*.*39。 {打開(kāi)文件對(duì)話(huà)框的默認(rèn)文件類(lèi)型為 All files } := 2。 if then with do for I := 0 to Count 1 do begin AssignFile(F, Strings[I])。 Reset(F)。 Readln(F, FirstLine)。 {讀文件的第一行 } (FirstLine)。 {將 FirstLine添加 Memo1中 } CloseFile(F)。 end。 end。 第 3章 窗體和常用組件 SaveDialog對(duì)話(huà)框 SaveDialog組件對(duì)應(yīng)于“另存為”對(duì)話(huà)框，它的屬性、方法和事件和“打開(kāi)”對(duì)話(huà)框基本相同。下表是 SaveDialog的 Options屬性取值及含義 : 第 3章 窗體和常用組件 其他對(duì)話(huà)框組件 其他對(duì)話(huà)框組件 介紹 : 第 3章 窗體和常用組件 模板 用戶(hù)可以定義一個(gè)組件模板 ， 上面包含一個(gè)或多個(gè)組件 。 首先將組件添加到數(shù)據(jù)模塊或窗體 ， 設(shè)置它們的特性 ， 創(chuàng)建事件處理程序 ， 并編寫(xiě)代碼 。 然后選定一個(gè)或多個(gè)組件 ， 從 Component菜單里選擇 Create Component Template菜單項(xiàng) ， 彈出的對(duì)話(huà)框 。 在 Component name后的文本框中輸入模板組件名字，在 Palette page的組合列表中選擇將其放置在何屬性頁(yè)上，也可以輸入屬性頁(yè)名，如果輸入的屬性頁(yè)名字不存在， Delphi將創(chuàng)建新的屬性頁(yè)。另外可以通過(guò)按 Palette Icon后的“ Change”按鈕來(lái)設(shè)置組件模板圖標(biāo)。最后按“ OK”按鈕，所有被選中的組件、事件處理程序、以及相關(guān)的代碼，都添加到了 VCL面板的指定的屬性頁(yè)上。選擇該組件模板并將其拖動(dòng)到任意的窗體或數(shù)據(jù)模塊上，即可重新創(chuàng)建包括代碼在內(nèi)的各個(gè)組件。 將模板添加到窗體或數(shù)據(jù) 模塊后，可以修改其位置、 大小和特性等，就像是分 別添加的一樣。 定義組件模板對(duì)話(huà)框 第 3章 窗體和常用組件 窗體模板 1. 窗體一般帶有許多代碼 ， 而且大多數(shù)應(yīng)用程序里會(huì)重復(fù)出現(xiàn)許多類(lèi)型的窗體 ， 當(dāng)設(shè)計(jì)好一個(gè)自定義的對(duì)話(huà)框后 ， 如果在其他工程中會(huì)用到它 ， 可以將該對(duì)話(huà)框保存成一個(gè)模板 ， 以提高開(kāi)發(fā)效率 ，減少重復(fù)性工作 。 2. 窗體模板是保存并添加到存儲(chǔ)庫(kù)的窗體 。 將窗體存儲(chǔ)成模板的步驟為： （ 1） 在已設(shè)計(jì)好的窗體上單擊鼠標(biāo)又鍵 ， 打開(kāi)窗體的快捷菜單 。 （ 2） 選擇快捷菜單中的 Add To Repository命令 ， 彈出對(duì)話(huà)框 。 Add To Repository對(duì)話(huà)框 第 3章 窗體和常用組件 窗體模板 （ 3） 填寫(xiě) Add To Repository對(duì)話(huà)框 ， 需要為模板窗體提供標(biāo)題和描述并選 擇要加入的屬性頁(yè) ， 輸入作者信息和圖標(biāo) 。 假設(shè)為模板窗體提供標(biāo)題 為： Mytemplate， 選擇要加入的屬性頁(yè)為 Forms。 （ 4） 點(diǎn)擊 OK按鈕 。 當(dāng)使用模板創(chuàng)建新窗體時(shí) ， 有三種選擇 。 可以在 New Items對(duì)話(huà)框的 Forms屬性頁(yè)上選擇 Copy、Inherit或 Use三者之一 。 存為窗體模板后 ， 無(wú)論何時(shí)需要使用該模板 ， 只需選擇File?New?Other菜單項(xiàng) ， 然后從 New Items對(duì)話(huà)框的 Forms屬性頁(yè)上選擇對(duì)應(yīng)模板即可 。 第 3章 窗體和常用組件 安裝新組件 Delphi 7使用 包 （ Package）的概念，包類(lèi)似于動(dòng)態(tài)鏈接庫(kù) (DLL)它主要收集組件并把它們放到一個(gè)獨(dú)立的、可共享的模塊 (一個(gè)Borland Packages Library或 .bpl文件 )中，包中可以包含一個(gè)或多個(gè)組件，供應(yīng)用程序共享。安裝包的操作步驟是： （ 1）選擇主菜單的 Component?Install Component菜單項(xiàng)， 將彈出 Install Component 對(duì)話(huà)框。 Install Component對(duì)話(huà)框 第 3章 窗體和常用組件 安裝新組件 （ 2）在 Install Component對(duì)話(huà)框中，單擊 Into New Package屬性頁(yè)。 （ 3）輸入要安裝組件的路徑和文件名，或使用 Browse按鈕來(lái)定位 相應(yīng) 的 單元。 （ 4）輸入新的 .dpk文件的路徑和名字（未編譯的包文件）。 （ 5）輸入包的描述。 （ 6）單擊 OK按鈕。 （ 7） Delphi將提示編譯并安裝包，單擊 Yes將新的包添加到組件面板。