TStringList型プロパティのプロパティエディタをデフォルトに戻すには？
解決TIBQueryから派生したコンポーネントを作成しました。
TIBQueryはSQLプロパティのエディタが通常のStringListとは違い、使い
にくいのでデフォルトに戻そうと思い、作成したコンポーネントのなかで
RegisterPropertyEditor(TypeInfo(TStrings), TIBQuery1, 'SQL',
TStringListProperty);
を記述し、これだけではコンパイルできなかったので
uses節にDesignIntfとStrEditを追加し、requiresにdesignideを
追加しました。
パッケージのコンパイルは出来たのですが、プロジェクトに
そのコンポーネントを追加し、コンパイルすると
"StrEdit.dcuが見つからない"とエラーになりました。
実行時パッケージを使用しdesignide.dcpを追加すると
コンパイル出来るのですが、実行時パッケージは使用したく
ありません。
設計時パッケージに"designide60.bpl"を追加しライブラリ検索パスに
ToolsApiを追加すると、StrEditユニットが参照するDesignEditorsユニット
のuses節の中の"Proxies"が見つからないというエラーになりました。
Proxiesユニットの参照を解決するにはどのようにしたらいいでしょうか？
単純に、StrEdit.dcuにパスが通っていないだけでは？
> "StrEdit.dcuが見つからない"とエラーになりました。
この時点で、ライブラリパス上にStrEdit.dcuが見つからないのだと思います。
コンパイルして出来たStrEdit.dcuを、パスの通っているディレクトリに置くか、StrEdit.dcuのあるディレクトリを、ライブラリパスに指定してみてください。
この場合、
> 実行時パッケージを使用しdesignide.dcpを追加すると
> コンパイル出来るのですが、実行時パッケージは使用したく
この先は関係なくなります。
にしのさんレスありがとうございます。
パッケージをコンパイルしても"StrEdit.dcu"は出来ていません。
一応コンポーネントは出来てプロパティエディタ自体は期待通り動作
するのですが、やはりアプリのコンパイルが出来ません。
試しにパッケージに"StrEdit.pas"を追加してコンパイルしてみようと
しましたが、DesignEditors.pasユニットのuses節の"Proxies"のところで
"Proxies.dcuがありません"とコンパイルエラーになります。
どうすれば良いでしょうか？
Delphi6ですか、もしかして。
Dekphi5ではうまくいきそうです。
uses 節に、DesignEditorsも、Proxiesもないですから。
Delphi6でどう解決するかはわかりません。
お力になれず申し訳ない。
するとしたら、Proxies.pasか、Proxies.dcuをファイル検索して、そのパスをライブラリパスに追加すればできそうな気がしますが、Proxiesユニットは見つかりませんか？
にしのさん何度もありがとうございます。
Delphi6です、Proxiesユニットはどこにも見あたらないです。
Delphi5はLibのフォルダにProxies.dcuがありました。
これはもうどうしようもないんでしょうか....
http://www2.big.or.jp/~osamu/Delphi/delphi-browse.cgi?index=059294
ひとまず、こちらを参照してください。
このすれどっでも解決したようには見えませんが、僕の持っている情報より多いと思います。
Delphi5のProxies.intのようなファイルを用意してもだめですかね。
Cならば、警告は出てもライブラリがあればリンクできるので。
# 未確認です
//ここから
unit Proxies;
interface
procedure CreateSubClass(Instance: TObject; const ClassName, UnitName: string;
Ancestor: TClass); overload;
procedure CreateSubClass(Instance: TObject; const ClassName: string;
Ancestor: TClass); overload;
procedure DestroySubClass(Instance: TObject);
procedure RenameSubClass(Instance: TObject; const ClassName: string;
const UnitName: string = '');
function CreateSubClassMethod(Instance: TObject;
const MethodName: string): Pointer;
procedure ChangeToProxyClass(Instance: TObject; Proxy: TClass);
procedure RenameSubClassMethod(Instance: TObject; Method: Pointer;
const MethodName: string);
procedure DestroySubClassMethod(Instance: TObject; Method: Pointer);
function IsProxyClass(ClassType: TClass): Boolean;
implementation
//ここまで
にしのさんこんばんは。
リンクを張っていただいたURLの情報からコンポーネント本体とプロパティエディタ
登録用ユニットを分離するという方法で無事解決しました！
しかしなぜこのような手順が必要なのかはよく分かりませんが、マニュアルに詳しく
記述して欲しいものですね。
いろいろお手数をおかけしましてありがとうございました。またよろしくお願いします。
にしのさんこんばんは。
リンクを張っていただいたURLの情報からコンポーネント本体とプロパティエディタ
登録用ユニットを分離するという方法で無事解決しました！
しかしなぜこのような手順が必要なのかはよく分かりませんが、マニュアルに詳しく
記述して欲しいものですね。
いろいろお手数をおかけしましてありがとうございました。またよろしくお願いします。
ダブって書き込みしてしまいました...
| ツイート |  |