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