怎样动态创建一个ActiveX控件,答对者均有分！！！！！！

Question

我来抢分：
   ？1：self
   ？2：form1

Answer 1

你可以察看 TPanoShow这个类的源代码,它应该发布了Create这个过程,看看是什么类型的参数
若为self,应该可以省略(当然也可以No),Application,self...都有可能,
Parent属性值一般应该是它的容器的名称,如:Form1,Panel..都有可能

Answer 2

今天我也要用到动态创建Activex控件，跑来一看，可4个月来没人能答。
用Pa.Create(nil);等都不行，报要先CoInitialize。而CoInitialize一般是
Delphi生成exe时加到exe里的。

Answer 3

我试了，没问题啊，甚至不用CoInitialize.
我用的是Delphi自己的AcitveX控件，直接引用相关单元，再声明和创建，就这样成功了：uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls，
  OleCtrls, vcfi; // 自己手动添加的type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    VtChart1: TVtChart;
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM} procedure TForm1.Button1Click(Sender: TObject);
begin
  VtChart1:= TVtChart.Create(self);
  VtChart1.parent := self;
  VtChart1.Top := 100;
  VtChart1.Left := 200;
end;end.