activeform在IE里游览时的两个问题 急！！！ ( 积分: 100 )

问题1：用activeform生成.ocx的问题

我用activeform生成.ocx后在IE里调用发现窗体的大小有问题，只有固定的大小（width=350，height=250）窗体只显示了我原来窗体的一部分图形，但是功能还是行的，我看到别人的程序都能显示的正常窗体的大小，请问是怎么回事


问题2：我用activeform封装我原来的应用程序出现的问题：

准备工作：（1）把原来的应用程序全部加到activeform文件夹下
（2）viewàproject manager里加入所有窗体文件

1.use单元加入CrossHairForm（主窗体名）

2.在type下加入：
procedure ActiveFormCreate(Sender: TObject);
procedure ActiveFormDestroy(Sender: TObject);

3．加入两个过程
procedure TActiveFormX.ActiveFormCreate(Sender: TObject);
begin
CrossHairForm := TCrossHairForm.Create(Self);
CrossHairForm.Parent := Self;
CrossHairForm.Align := alClient;
CrossHairForm.BorderStyle := bsNone;
CrossHairForm.Visible := true;
end;

procedure TActiveFormX.ActiveFormDestroy(Sender: TObject);
begin
CrossHairForm.Free;
end;

4．分发到我指定的虚拟目录下，可是我到IE里浏览的时候什么也没有单部调试也不行，请大家帮忙看看怎么回事

问题1：用activeform生成.ocx的问题

我用activeform生成.ocx后在IE里调用发现窗体的大小有问题，只有固定的大小（width=350，height=250）窗体只显示了我原来窗体的一部分图形，但是功能还是行的，我看到别人的程序都能显示的正常窗体的大小，请问是怎么回事


问题2：我用activeform封装我原来的应用程序出现的问题：

准备工作：（1）把原来的应用程序全部加到activeform文件夹下
（2）viewàproject manager里加入所有窗体文件

1.use单元加入CrossHairForm（主窗体名）

2.在type下加入：
procedure ActiveFormCreate(Sender: TObject);
procedure ActiveFormDestroy(Sender: TObject);

3．加入两个过程
procedure TActiveFormX.ActiveFormCreate(Sender: TObject);
begin
CrossHairForm := TCrossHairForm.Create(Self);
CrossHairForm.Parent := Self;
CrossHairForm.Align := alClient;
CrossHairForm.BorderStyle := bsNone;
CrossHairForm.Visible := true;
end;

procedure TActiveFormX.ActiveFormDestroy(Sender: TObject);
begin
CrossHairForm.Free;
end;

4．分发到我指定的虚拟目录下，可是我到IE里浏览的时候什么也没有单部调试也不行，请大家帮忙看看怎么回事

我最近也在做ocx在ie中的问题
你打开你所用的htm文件，把width=350，height=250
这两个值是可设的，你试试看
我的msm是
blackdtj@hotmail.com
可以和我联系：）
互相交流

帮定一下，呵呵[]

to missinwind:
我该如何绑定啊

问题一回答:
设置width=100%，height=100%
问题二回答:
我觉得只能有ActiveForm,多个的话不好管理,也容易出错.

问题一：正如king8egg所说，设置width=100%，height=100%也可，不能这样做可能会另你的Activeform变得不好看，所以最好还是用原先的设置好
问题二：要看你自己的原程序是怎么样子的，如果有数据模块的话，在CREATE里也要加入创建数据模块的语句