明輝手游網(wǎng)中心:是一個免費(fèi)提供流行視頻軟件教程、在線學(xué)習(xí)分享的學(xué)習(xí)平臺!

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

[摘要]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