コンポーネントをインストールせずに使用するには

解決

jil 2004-02-06 07:40:45 No: 6972

面白そうなコンポーネントを見つけたのですが、インストールするまではどうも、というもの。インストールせずに使用する方法ってあるのでしょうか？

jok 2004-02-06 07:42:39 No: 6973

uses に加えて、FormCreate でコンストラクタ、FormDestroy でデストラクタ
を実行します。コンポーネントもただのクラスです。

jok 2004-02-06 07:43:57 No: 6974

あ、コンストラクタで Owner を設定するからデストラクタはいらないか。

jil 2004-02-06 08:02:04 No: 6975

すいませんもう少し詳しく教えていただけると・・・

jok 2004-02-06 09:05:44 No: 6976

TButton クラスは StdCtrls.pas にあるので、もしコンポーネントパレットに
のっていない、と仮定した場合、インストールしなくても、次のようにして
使うことが出来ます。

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls; // StdCtrls を加える

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private 宣言 }
  public
    Button:TButton;
    procedure ButtonClick(Sender:TObject);
  end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button := TButton.Create(self);
  Button.Parent := self;
  Button.Left := 10;
  Button.Top := 10;
  Button.Caption := 'Push Me!';
  Button.OnClick := ButtonClick;
end;

procedure TForm1.ButtonClick(Sender: TObject);
begin
Color := clLime;
end;

コンポーネントによって初期化の仕方が違います。
これ以上は具体的なクラスを知らないと答えようがありません。

クラスの動的作成が出来ないか、難しいと感じるようでしたら、
インストールすることをすすめます。

jil 2004-02-14 07:55:19 No: 6977

ありがとうございます。何とかできました。コードによる的確な解答ありがたいです。