第八章對象鏈接與嵌入二-展示頁
2024-09-17 15:38本頁面
【正文】 屬性 值 ──────────────────────── Name SaveAsDialog DefaultExit ole FileName .OLE Filter OLE files (*.OLE)|*.OLE ━━━━━━━━━━━━━━━━━━━━━━━━ 表 打開對話框的屬性及取值 ━━━━━━━━━━━━━━━━━━━━━━━━━ 屬性 取值 ──────────────────────── Name OpenDialog DefaultExit ole FileName .OLE Filter OLE files (*.OLE)|*.OLE ━━━━━━━━━━━━━━━━━━━━━━━━━ 用戶單擊“文 件 |保存”菜單項(xiàng)實(shí)現(xiàn) OLE對象的保存。) 本章例程使用了保存對話框和打開對話框來實(shí)現(xiàn)運(yùn)行狀態(tài)的對象保存和對象裝入。 (39。C: \39。如果要對已存文件的對象進(jìn)行編輯，應(yīng)用程序必須從文件中裝入 OLE 對象。 如果對象是嵌入的，數(shù)據(jù)貯存在應(yīng)用程序程序的窗體。 如果對象是鏈接的數(shù)據(jù)， Delphi 將自動(dòng)的保存在源文件中。 Delphi 自動(dòng)釋放這塊內(nèi)存。 with Source as TOLEDropNotify do := PInitInfo end end。 var NewChild: TOLEObjectForm。 以下為處理 OnDragDrop 事件的代碼： procedure (Sender, Source: TObject。要實(shí)現(xiàn)釋放功能。 如果一個(gè) OLE 對象被 釋放。 如果 Source 是一個(gè) OLE 對象， 那么它是 TOLEDropNotify 對象的派生類型。第八章 對象鏈接與嵌入（二） 在應(yīng)用程序中釋放 OLE 對象 當(dāng)一個(gè)對象釋放到一個(gè)窗體，該窗體發(fā)生 OnDragDrop 事件。該對象定義為TDragDropEvent 方法中的 Source 參數(shù)，而 TDragDropEvent 方法是用來處理OnDragDrop 事件”。 TOLEDropNotify 對象有一個(gè)與 OLE包容器部件 PInitInfo 屬性相對應(yīng)的 PIniInfo 屬性。 PInitInfo 指向 OLE對象的初始化信息結(jié)構(gòu)。只需將 TOLEDropNotify 的 PInitInfo屬性賦給 OLE 包容器部件的 PInitInfo 屬性。 X, Y: Integer)。 begin if Source is TOLEDropNotify then begin NewChild := CreateChild。 注意不要用 ReleaseOLEInitInfo 釋放分配給 PInitInfo 屬性的內(nèi)存。 文件中的 OLE 對象 在 OLE 應(yīng)用程序中，要保存對 OLE 對象的修改，需將對象數(shù)據(jù)保存在文件中。當(dāng)對象被修改時(shí)，文件中的數(shù)據(jù)自動(dòng)修改。要保存對嵌入對象的修改， 應(yīng)用程序應(yīng)把數(shù)據(jù)保存在特殊的 OLE 文件中。 OLE 包容器部件的 SaveToFile 方法可保存對象： (39。)； OLE 包容器部件的 loadFromFile 方法可把文件中的對象裝入 OLE 包容器部件。C:\39。 在 OLEObjectForm 窗體加入保存對話框部件和打開對話框部件。代碼如下： procedure (Sender: TObject)。 用戶單擊“文件 |打開”菜單項(xiàng)實(shí)現(xiàn)對象文件裝入： procedure (Sender: TObject)。 begin f then begin NewChild := CreateChild。 OLE 自動(dòng)化 OLE 自動(dòng)化是 Windows 應(yīng)用程序操縱另一個(gè)程序的一種機(jī)制。 利用 OLE ，程序員可以定義一 組命令，使它們進(jìn)入到其它程序中?？雌饋砗芟髴?yīng)用程序在調(diào)用函數(shù)或過程一樣。 被自動(dòng)化的程序稱作自動(dòng)化對象或自動(dòng)化服務(wù)器， 操作或自動(dòng)化其他程序的應(yīng)用程序稱為自動(dòng)化控制器或自動(dòng)化客戶器。在應(yīng)用程序之間
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1