Delphi 6.0中屬性編輯器的處理方案
發(fā)表時間:2023-07-29 來源:明輝站整理相關(guān)軟件相關(guān)文章人氣:
[摘要]Delphi中用戶可以自己聲明屬性編輯器在程序設(shè)計期間對第三方控件進(jìn)行設(shè)計,對屬性編輯器的聲明可以在注冊控件的時候通過RegisterComponentEditor過程進(jìn)行定義,具體為: pr...
Delphi中用戶可以自己聲明屬性編輯器在程序設(shè)計期間對第三方控件進(jìn)行設(shè)計,對屬性編輯器的聲明可以在注冊控件的時候通過RegisterComponentEditor過程進(jìn)行定義,具體為:
procedure RegisterComponentEditor(ComponentClass: TComponentClass; ComponentEditor: TComponentEditorClass);
當(dāng)然,用戶在注冊前要定義自己的屬性編輯器,下面是一個例子:
TOutlookBarEditor = class(TComponentEditor)
function GetVerb(Index: Integer): string; override;
function GetVerbCount: Integer; override ;
procedure Edit; override;
procedure ExecuteVerb(Index: Integer); override;
end;
其中最關(guān)鍵的部分在于對RegisterComponentEditor的引用。
在Delphi5.0中,可以直接將$(DELPHI)\Source\ToolsAPI目錄下的DsgnIntf.pas文件拷貝到控件的設(shè)計目錄下或者拷貝到$(DELPHI)\Lib目錄即可。
在Delphi6.0中,Delphi將文件分解成DesignIntf.pas和DesignEditors.pas兩個文件,所以引用時要將$(DELPHI)\Source\ToolsAPI目錄下的DesignIntf.pas和DesignEditors.pas兩個文件拷貝到控件的設(shè)計目錄下或者拷貝到$(DELPHI)\Lib目錄。
當(dāng)然,如果你的Delphi Package的搜索路徑或者Delphi IDE的搜索路徑可以搜索到$(DELPHI)\Source\ToolsAPI目錄就省去此麻煩。
但是,在Delphi 6.0中,如果就此編譯,會出現(xiàn)找不到Proxies.dcu文件的問題。因?yàn)镻roxies被編譯了,在Delphi的目錄中根本就找不到此相關(guān)文件,它已經(jīng)被編譯到designide.dcp文件中,解決方案很簡單,就是在你的Package中引用designide.dcp文件即可,具體作法是:
Project->View Source->在requires部分加入對designide的引用即可。
由于此部分文件只是在設(shè)計期間才有效,所以你的Package在設(shè)計時就要注意:
不要在運(yùn)行期間將在進(jìn)行期間使用的文件加入對DesignIntf.pas和DesignEditors.pas兩個文件的引用,否則依然會出現(xiàn)找不到Proxies.dcu文件的問題,要將文件脫離!
當(dāng)然,如果你的Package要在Delphi 5.0及Delphi6.0下同時能運(yùn)行,那就要下點(diǎn)功夫通過編輯器的版本進(jìn)行控制,Delphi 6.0的編輯器版本是VER140,Delphi 5.0的編輯器版本是VER130,下面是本人的一個真實(shí)的引用文件:
uses
Classes, {$IFDEF VER140}DesignIntf, DesignEditors{$ELSE}DsgnIntf{$ENDIF};
Package部分由于版本不同而對不同的版本要進(jìn)行不同的設(shè)計,再此就不敘述了!
其它補(bǔ)記:由于Delphi 5.0和Delphi 6.0對過程及參數(shù)的定義區(qū)域不同而出現(xiàn)錯誤,所以在編寫兩個版本的Package時一定要注意引用虛函數(shù)時出現(xiàn)的問題。例如對TControl控件的SetAutoSize(Value: Boolean)過程的引用:
在Delphi 5.0中定義為:
private
procedure SetAutoSize(Value: Boolean);
而在Delphi 6.0中定義為:
protected
procedure SetAutoSize(Value: Boolean); virtual;
此時的定義要根據(jù)自己的實(shí)際情況定義了,可不能隨便定義了!
Starfarm--->Docn Hank(starfarm@263.net)
2001.11.13