組件開發(fā)技術(shù)-資料下載頁
2025-05-22 13:45本頁面
【導(dǎo)讀】開發(fā)組件的一般步驟。為組件添加屬性、事件和方法。組件的調(diào)試與安裝。個(gè)龐大的應(yīng)用程序劃分成多個(gè)模塊。單獨(dú)編譯，甚至單獨(dú)調(diào)試和測試。完成后，把他們組合在一起就得到了完整的應(yīng)用系統(tǒng)。類的成分有四種，分別是Private、數(shù)均是方法，方法可以被外界調(diào)用。在組件的定義中需要特別注意的是property關(guān)鍵字，過程的指針，也可以是系統(tǒng)指供的特定的名稱。創(chuàng)建一個(gè)組件，大致可以分為以下6個(gè)步驟。在Delphi中注冊該組件。為該組件建立幫助文件。句柄，不能獲得焦點(diǎn)，也不能作為其他組件的父組件。統(tǒng)資源，而且有較快的圖形繪制速度。剪切板查看組件具有以下功。它的標(biāo)題和是否可見，組件名為“ClipBoardViewer”。件，該事件有一個(gè)參數(shù)Text用來傳遞剪切板上的數(shù)據(jù)。組件單元，但這比較麻煩。包工程的主要用途就是封裝Delphi的組件，F(xiàn)alse時(shí)，表示集合不包含該元素。對(duì)象對(duì)象屬性必須由TPersistent類派生。需要有它們自己的屬性編輯器。
【正文】 安裝組件即可。 （ 2）只發(fā)布組件 如果不想發(fā)布組件源碼，則需要發(fā)布以下文件：組件實(shí)現(xiàn)單元的編譯結(jié)果文件（ *.dcu），資源文件（ *.DCR和 *.dfm），以及包的庫文件（ *.bpl）和包的符號(hào)文件（ *.dcp），這兩個(gè)文件一般在 Delphi目錄下的 Projects\bpl目錄里。 典型實(shí)例練能力 典型實(shí)例一：支持文件拖放操作的列表 框組件 【 實(shí)例題目 】 編寫一個(gè)名為 TDropFileListBox的列表框組件，該組件能夠支持文件的拖放操作：當(dāng)把磁盤上的磁盤文件名拖動(dòng)到列表框中時(shí)，磁盤文件名將作為列表項(xiàng)自動(dòng)添加到列表框中。 【 實(shí)現(xiàn)方法 】 （ 1） 為實(shí)現(xiàn)文件拖放 ， 涉及到三個(gè) API函數(shù) ， 分別如下： DragAcceptFiles()—— 初始化某窗口使其允許 /禁止接受文件拖放 DragQueryFile()—— 查詢拖放的文件名 DragFinish()—— 釋放拖放文件時(shí)使用的資源 （ 2）文件拖放操作實(shí)現(xiàn)的基本思路如下：首先調(diào)用DragAcceptFiles()函數(shù)初始化組件窗口，使其允許接受文件拖放，然后等待 WM_DropFiles消息（一旦用戶進(jìn)行了拖放文件操作，組件窗口即可獲得此消息），獲得消息后即可使用 DragQueryFile()函數(shù)查詢被拖放的文件名，最后調(diào)用 DragFinish()釋放資源。 （ 3）新組件的功能。從 TListBox為組件的基類建立組件，新組件名為：TDropFileListBox，它比標(biāo)準(zhǔn) TListBox增加了一個(gè) OnDropFiles事件和一個(gè) DropEnabled屬性。當(dāng) DropEnabled為 True時(shí)即可接受文件拖放，文件拖放完成后激發(fā) OnDropFiles事件，該事件提供一個(gè) FileNames參數(shù)讓用戶獲得文件名。 【 組件驗(yàn)證 】 組件安裝后 ， 創(chuàng)建一個(gè)項(xiàng)目 ， 把該組件加載到窗體中 ，可以發(fā)現(xiàn)該組件有一個(gè) DropFiles事件 ， 編寫該事件的程序代碼如下： procedure (Sender: TObject。 FileNames: TStringList)。 begin (FileNames)。 end。 程序的設(shè)計(jì)界面如圖 1114所示，執(zhí)行程序，從磁盤上拖動(dòng)幾個(gè)文件到列表框中后，程序的運(yùn)行界面如圖 1115所示。 圖 1114 程序設(shè)計(jì)界面 圖 1115 程序運(yùn)行界面 上機(jī)練習(xí)重應(yīng)用 上機(jī)練習(xí)一：連續(xù)工作的按鈕組件 【 練習(xí)題目 】 編寫一個(gè)能夠連續(xù)工作的按鈕組件，當(dāng)它被按下的時(shí)候，它所執(zhí)行的功能就持續(xù)執(zhí)行（也就是每隔一個(gè)固定的時(shí)間段執(zhí)行一次按鈕功能），當(dāng)松開時(shí)，就停止其功能的執(zhí)行。 【 組件測試 】 編譯并注冊組件 ， 新建一個(gè)新的項(xiàng)目 ， 在窗體上添加一個(gè)標(biāo)簽 、 一個(gè)編輯框和一個(gè)本題創(chuàng)建的 TButtonTimer組件 。 程序的設(shè)計(jì)界面如圖 1116 所示 。 設(shè)置ButtonTimer組件的 Caption屬性值為 “ 數(shù)字增 1”，Interval屬性值為 200。 編寫的的 OnPush事件代碼如下： procedure (Sender: TObject)。 begin :=inttostr(strtoint()+1 )。 end。 執(zhí)行程序，按住 ButtonTimer1組件，會(huì)發(fā)現(xiàn)編輯框中的數(shù)字不停地加 1（每隔 1），程序的運(yùn)行界面如圖 1117所示。 圖 1116 程序設(shè)計(jì)界面 圖 1117 程序運(yùn)行界面
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1