如何在Delphi中为TOleContainer加上滚动条以便完全浏览其内部的内容? (200分)

  • 主题发起人 主题发起人 JinBo
  • 开始时间 开始时间
setwindowlong(olecontainer1.handle, GWL_STYLE, getwindowlong(olecontainer1.handle, GWL_STLE) or WS_HSCROLL or WS_VSCROLL);
olecontainer1.invalidate;
 
你的方法是为OLEContainer加上滚动条,但滚动条不能使内容滚动。
 
其实没有必要加滚动条。只要将其显示位置的一个属性(记不清了,自己查吧)设为自动缩放。当然要将ToleContainer这个控年放在TScrollBox上,而不能单独放置在Panel上,其Align属性不要设为alClient.
 
你还是设法让ole保持active吧。
 
请继续!
 
把OleContainer放到ScrollBox中,
然后设置OleContainer的SizeMode属性为:smAutoSize即可。
 
to 谭俊峰
你的方法能将OleContainer1中的字体改大一些吗?如何操作?!
 
我试过好多方法,都不行,好象 olecontainer 只能显示部分内容,要得到全部的内容,
只有把文档打开。
 
我也正为这事头疼
 
不知vba行不行
 
多人接受答案了。
 
后退
顶部