【搞定】控件位置问题?

aboy · 发表于 2007-8-23 11:33:43

请问下OleContainer控件能放到信息层的表单上不?
我在信息层的表单上放了个,OleContainer取文档信息时,提示如图:

zfang · 发表于 2007-8-23 13:08:39

楼主是怎么用的？

aboy · 发表于 2007-8-23 15:11:15

我就是在信息层的表单上了个OleContainer1控件,然后
var
Stream: TStream;

lStream := DataSetBroker1.DataSet.CreateBlobStream(DataSetBroker1.Dataset.FieldByName('NOR_TABLE_ANNEX'),TBlobStreamMode.bmReadWrite);
CYDJINFO.TCYDJST(DocView.Doc).OleContainer1.LoadFromStream(lStream);
爆错(如上图)
这段代码在功能的确窗体上不爆错()

zfang · 发表于 2007-8-23 16:07:32

olecontainer必须有对象头信息才可以
用CreateObjectFromInfo或者用CreateObjectFromFile

olecontainer1.LoadFromStream(filestream);
并不能簡單裝載一個文件流來生成相應的Ole调用!!!

zfang · 发表于 2007-8-23 16:30:04

另外，楼主，这个控件用法可以参考网上的一些资料！
比如
http://www.baidu.com/s?ie=gb2312 ... container+&ct=0

aboy · 发表于 2007-8-23 17:52:11

olecontainer1.LoadFromStream(filestream);
并不能簡單裝載一個文件流來生成相應的Ole调用!!!

请问我在窗体上怎么就可以呢???

zfang · 发表于 2007-8-24 08:46:41

楼主，你的问题是has no parent window，在功能窗体中是可以的！（在信息下的窗体中也好像会有这样的提示），但是你给他指定一个parent（用panel好像不行，要用form）就不会报错，具体请参考网上的帖子吧！
http://topic.csdn.net/t/20050112/11/3718957.html

aboy · 发表于 2007-8-24 09:44:52

大哥,你如果有时间帮我做个例子, (在信息下的表单上放olecontainer) 如图谢谢

aboy · 发表于 2007-8-24 10:40:50

帮我做个例可以?

zfang · 发表于 2007-8-24 11:15:40

procedure TJLST2.FormDocCreate(Sender: TObject);
var
  lStream: TStream;
  lform : TForm;

begin
  lForm := TForm.Create(context);
  OleContainer1.Parent := lForm;
  OleContainer1.CreateObjectFromFile('c:\火车时刻表.xls',False);
  lForm.Parent := Panel1;
  lForm.Show;
end;
-------------------------------
楼主，我给你做了个简单的例子，仅供参考！
在信息中的一个表单

		自动登录	找回密码
密码			立即注册