Delphi 6.0中屬性編輯器的解決方案 (轉)

Delphi 6.0中屬性編輯器的解決方案 (轉)[@more@]microsoft FrontPage 4.0">

Delphi 6.0中屬性編輯器的解決方案
  Delphi中可以自己宣告屬性編輯器在設計期間對第三方進行設計，對屬性編輯器的宣告可以在註冊控制元件的時候透過RegisterComponentEditor過程進行定義，具體為：
  procedure RegisterComponentEditor(ComponentClass: TComponentClass; ComponentEditor: TComponentEditorClass);
  當然，使用者在註冊前要定義自己的屬性編輯器，下面是一個例子：
  TBarEditor = class(TComponentEditor)
  function GetVerb(Index: Integer): string; overr;
  function GetVerbCount: Integer; override ;
  procedure Edit; override;
  procedure ExecuteVerb(Index: Integer); override;
  end;

  其中最關鍵的部分在於對RegisterComponentEditor的引用。
  在Delphi5.0中，可以直接將$(DELPHI)Tools目錄下的DsgnIntf.pas複製到控制元件的設計目錄下或者複製到$(DELPHI)Lib目錄即可。
  在Delphi6.0中，Delphi將檔案分解成DesignIntf.pas和DesignEditors.pas兩個檔案，所以引用時要將$(DELPHI)SourceToolsAPI目錄下的DesignIntf.pas和DesignEditors.pas兩個檔案複製到控制元件的設計目錄下或者複製到$(DELPHI)Lib目錄。
  當然，如果你的Delphi Package的搜尋路徑或者Delphi IDE的搜尋路徑可以搜尋到$(DELPHI)SourceToolsAPI目錄就省去此麻煩。

  但是，在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對過程及引數的定義區域不同而出現錯誤，所以在編寫兩個版本的Package時一定要注意引用虛時出現的問題。例如對TControl控制元件的SetAutoSize(Value: Boolean)過程的引用：
  在Delphi 5.0中定義為：
  private
  procedure SetAutoSize(Value: Boolean);
  而在Delphi 6.0中定義為：
  protected
  procedure SetAutoSize(Value: Boolean); virtual;
  此時的定義要根據自己的實際情況定義了，可不能隨便定義了！



  Starfarm---&gtDocn Hank(to:starfarm@263">starfarm@263.net)

  2001.11.13