调用ACTIVEX的问题
尘风四海 2007-02-09 01:37:57 调用别人写的activex控件,一个表单上同时放二个ACTIVEX和放一个ACTIVEX运行二次有什么区别,如果我放二个就会出错。放一个运行二次就不会有问题,如果我想在一个表单上放多个ACTIVEX,该如何处理呢
procedure TForm1.CreateSQ(Sender:TObject);
var
sq1:TCSQ2;
SQ2:TCSQ2;
begin
sq1:=TCSQ2.Create(self);
with sq1 do
begin
IP :=edtIP.Text;
Port :=StrToInt(edtPort.text);
Align :=alClient ;
ShowText :=StrToInt(cbxStatu.Text);
audio_on :=StrToInt(cbxaudio.Text);
webcamID :=edtname.Text ;
video_on :=1;
Width :=160;
Height :=120;
Parent :=panel1;
end;
sq2:=TCSQ2.Create(self);
with sq2 do
begin
IP :=edtIP.Text;
Port :=StrToInt(edtPort.text);
Align :=alClient ;
ShowText :=StrToInt(cbxStatu.Text);
audio_on :=StrToInt(cbxaudio.Text);
webcamID :=edtname.Text ;
video_on :=1;
Width :=160;
Height :=120;
Parent :=panel2;
end;
end;