Delphi 6.0中屬性編輯器的處理方案

    Delphi中用戶可以自己聲明屬性編輯器在程序設(shè)計(jì)期間對(duì)第三方控件進(jìn)行設(shè)計(jì)，對(duì)屬性編輯器的聲明可以在注冊(cè)控件的時(shí)候通過(guò)RegisterComponentEditor過(guò)程進(jìn)行定義，具體為：
    procedure RegisterComponentEditor(ComponentClass: TComponentClass; ComponentEditor: TComponentEditorClass);
    當(dāng)然，用戶在注冊(cè)前要定義自己的屬性編輯器，下面是一個(gè)例子：
    TOutlookBarEditor = class(TComponentEditor)
      function GetVerb(Index: Integer): string; override;
      function GetVerbCount: Integer; override ;
      procedure Edit; override;
      procedure ExecuteVerb(Index: Integer); override;
    end;

    其中最關(guān)鍵的部分在于對(duì)RegisterComponentEditor的引用。
    在Delphi5.0中，可以直接將$(DELPHI)\Source\ToolsAPI目錄下的DsgnIntf.pas文件拷貝到控件的設(shè)計(jì)目錄下或者拷貝到$(DELPHI)\Lib目錄即可。
    在Delphi6.0中，Delphi將文件分解成DesignIntf.pas和DesignEditors.pas兩個(gè)文件，所以引用時(shí)要將$(DELPHI)\Source\ToolsAPI目錄下的DesignIntf.pas和DesignEditors.pas兩個(gè)文件拷貝到控件的設(shè)計(jì)目錄下或者拷貝到$(DELPHI)\Lib目錄。
    當(dāng)然，如果你的Delphi Package的搜索路徑或者Delphi IDE的搜索路徑可以搜索到$(DELPHI)\Source\ToolsAPI目錄就省去此麻煩。

    但是，在Delphi 6.0中，如果就此編譯，會(huì)出現(xiàn)找不到Proxies.dcu文件的問(wèn)題。因?yàn)镻roxies被編譯了，在Delphi的目錄中根本就找不到此相關(guān)文件，它已經(jīng)被編譯到designide.dcp文件中，解決方案很簡(jiǎn)單，就是在你的Package中引用designide.dcp文件即可，具體作法是：
    Project－＞View Source－＞在requires部分加入對(duì)designide的引用即可。

    由于此部分文件只是在設(shè)計(jì)期間才有效，所以你的Package在設(shè)計(jì)時(shí)就要注意：
    不要在運(yùn)行期間將在進(jìn)行期間使用的文件加入對(duì)DesignIntf.pas和DesignEditors.pas兩個(gè)文件的引用，否則依然會(huì)出現(xiàn)找不到Proxies.dcu文件的問(wèn)題，要將文件脫離！

    當(dāng)然，如果你的Package要在Delphi 5.0及Delphi6.0下同時(shí)能運(yùn)行，那就要下點(diǎn)功夫通過(guò)編輯器的版本進(jìn)行控制，Delphi 6.0的編輯器版本是VER140，Delphi 5.0的編輯器版本是VER130，下面是本人的一個(gè)真實(shí)的引用文件：
    uses
      Classes, {$IFDEF VER140}DesignIntf, DesignEditors{$ELSE}DsgnIntf{$ENDIF};

    Package部分由于版本不同而對(duì)不同的版本要進(jìn)行不同的設(shè)計(jì)，再此就不敘述了！


    其它補(bǔ)記：由于Delphi 5.0和Delphi 6.0對(duì)過(guò)程及參數(shù)的定義區(qū)域不同而出現(xiàn)錯(cuò)誤，所以在編寫兩個(gè)版本的Package時(shí)一定要注意引用虛函數(shù)時(shí)出現(xiàn)的問(wèn)題。例如對(duì)TControl控件的SetAutoSize(Value: Boolean)過(guò)程的引用：
    在Delphi 5.0中定義為：
    private
      procedure SetAutoSize(Value: Boolean);
    而在Delphi 6.0中定義為：
    protected
      procedure SetAutoSize(Value: Boolean); virtual;
    此時(shí)的定義要根據(jù)自己的實(shí)際情況定義了，可不能隨便定義了！



    Starfarm--->Docn Hank(starfarm@263.net)

    2001.11.13