コンポーネントの登録方法等
コンポーネントをインストールしないで利用・動作確認 |
| 動作確認等 |
- |
コンポーネントは多くの場合、実行時に生成して使用すれば、コンポーネントのインストール (登録) をする必要がありません。コンポーネントのソースをパスの通ったフォルダに置いて、uses に追加します。実際の例はサンプル集の [160_コンポーネントの実行時生成] や印刷プレビュー制御コンポーネントの [コンポーネントの実行時生成] のコードを参考にしてください。
また、ネット上で提供されているコンポーネントの中には、パッケージに登録しないで、uses に追加して、実行時に生成することを前提にしたものもあります。
この方法は、派生元のコンポーネントにないイベントは、メソッドとして設定しないと利用できません。これは、オブジェクト・インスペクタでイベントを作成する方法が使えないためです。 |
ネット上で提供されているコンポーネントの動作を確認したいが、インストール (登録) はしたくないことがあります。テストプログラムやデモプログラムの実行形式(EXE)ファイルが添付されていれば確認できますが、添付されていない場合、IDEを起動しなくても、コマンドラインコンパイラでコンパイルすると EXE ファイルを生成することができます。
コマンドラインコンパイラによるコンパイルについては、サンプルプログラム集の [000_コマンドラインコンパイラの実行] を参考にしてください。
ただし、この方法はリソースファイルがないとコンパイルできません。 |
|
通常の実行時生成とは別に、コンポーネントのインストール、登録作業をしないで使用する方法があります。
[コンポーネントをインストールせずに使う方法] の記事にある関数を使用すると、フォームに配置したビジュアルなコンポーネントを、ユニット内で定義した別のコンポーネント、つまりクラス定義の内容を、実行時に情報を置き換えて使用できます。
サンプルプログラム集でも使用しています。ChangeComponent でサイト内を検索してみてください。
この方法は、実行時にコンポーネントを生成する方法と同じように、派生元のコンポーネントにないイベントは、メソッドとして設定しないと利用できません。これは、オブジェクト・インスペクタでイベントを作成する方法が使えないためです。
また、置き換えるコントロールを親 (Parent) にした別のコントロールを配置している場合はこの方法は利用できませんが、一度 Parent プロパティの値を nil にしてから再度 Parent プロパティを設定し直すという方法もあります。
|
リスト1
実行時にコンポーネント(クラス情報)を入れ替える関数。plChgCompo.pas の名前で保存する |
unit plChgCompo;
interface
uses
Windows, Messages, SysUtils, Classes, Controls, TypInfo;
function ChangeComponent(Original: TComponent; NewClass: TComponentClass):
TComponent;
implementation
//=============================================================================
// コンポーネントを交換する関数
//-----------------------------------------------------------------------------
// 【動作確認環境】
//
// Delphi 2007 R-2 Pro, Delphi 2010 Pro, Delphi XE Pro
//=============================================================================
function ChangeComponent(Original: TComponent; NewClass: TComponentClass):
TComponent;
var
APropList : TPropList;
New : TComponent;
Stream : TStream;
Methods : array of TMethod;
MethodCount : Integer;
i : Integer;
begin
MethodCount := GetPropList(Original.ClassInfo, [tkMethod], @APropList[0]);
SetLength(Methods, MethodCount);
for i := 0 to MethodCount - 1 do begin
Methods[i] := GetMethodProp(Original, APropList[i]);
end;
Stream := TMemoryStream.Create;
try
Stream.WriteComponent(Original);
New := NewClass.Create(Original.Owner);
if New is TControl then TControl(New).Parent := TControl(Original).Parent;
Original.Free;
Stream.Position := 0;
Stream.ReadComponent(New);
finally
Stream.free
end;
for i := 0 to MethodCount - 1 do begin
SetMethodProp(New, APropList[i], Methods[i]);
end;
Result := New;
end;
end.
|
