TOleContainer 的使用问题？

Question

Ole1为Ole容器
var
 MsWord: Variant;
begin
  MsWord := CreateOleObject('Word.Basic');
  MsWord.Fileopen('d:\hua\newpaper.doc');;
  Msword.Appshow;    //可以不要
  Msword.AtStartofdocument;
//以下为循环体。
 while 文档没有结束前。 do
  Begin
  Msword.Pagedown(1,1);//参数 1 为1，表示下移一个屏幕
           //参数 2 为1，表示下移按住了shift,即选择下移
  Msword.EditCopy;
  Ole1.Paste; //将内容拷贝到Ole中。
 //设Ole1的sizemode为autosize,
  Ole1.paintto(..) 到个canvas,
 //从canvas中可以做自己的处理。
 //这样可以读出每页的内容。
  End;
End;
需要注意的是Pagedown(1,1)不是下移一页，如果你想拷贝完整的
一页的话，可以用Linedown(1,1),然后判断是否在同一页内。

Answer 1

关于背景颜色的设定，，在TOleContainer的单元中，
TOleContainer有一个Protected 方法Paint。将该方法的一些代码屏蔽掉就可以了：
  Canvas.Brush.Style := bsSolid;
  Canvas.Brush.Color := Color;
  DrawEdge(Canvas.Handle, CR, EDGE_SUNKEN, Flags or BF_MIDDLE);