怎样在DELPHI中动态调用ACTIVEX控件?(100分)

  • 主题发起人 主题发起人 yiminder
  • 开始时间 开始时间
Y

yiminder

Unregistered / Unconfirmed
GUEST, unregistred user!
怎样在DELPHI中动态调用ACTIVEX控件?[?]
 
是这样吗?

var
Form1: TForm1;
i: Integer;
j: Integer;
k: integer;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
with TThumbCtl.Create(Self) do
begin
parent:=form1;
Name:='ThumbCtl1'+inttostr(i);
i:=i+1;
width:=127;
height:=127;
left:=j;
top:=k;
j:=j+150;
if j>640 then
begin
j:=0
k:=k+150;
end;
end;
end;

其中:TThumbCtl是刚引进的ACTIVEX控件。
 
老大,ACTIVE 可是要注册的哟 :)
 
在你导入ActiveX控件的时候,Delphi已经自动生成了一个与之同名的*_TLB.pas文件,里面有所有的
函数调用说明!
 
楼上说的对,还有要自己Create
 
后退
顶部