Tolecontainer的使用（急！！！！！！！！）

Question

我在DELPHI窗体中放置了一个树形控件和一个OLECONTAINER控件，试图通过双击树形控件的各个结点时，就能通过OLE控件调用相应的WORD文档，将其内容显示在OLE中，因此，我在树形控件的双击事件中输入了以下代码：
   if TreeView1.Selected.Text='最小二乘法' then
    begin
     OleContainer1.run;
     OleContainer1.show;
     OleContainer1.DestroyObject;
     OleContainer1.CreateObjectFromFile('模型库文件\模型说明文件\销量预测模型\一元线性回归法.doc',false);
     OleContainer1.doverb(ovshow);
    end;但运行时，系统仍提示有“未知错误”，我已经试过很多遍了，这些代码的顺序也交换过很多次，可就是不行，请各位朋友指教一下，本女子万分感谢！！！

Answer 1

OleContainer1.run; 
    OleContainer1.show; 
OleContainer1.DestroyObject; 
以上需要在OleContainer1中有内容是才可以，你第一次点击时，OleContainer1中内容为空，必然出错，去掉

Answer 2

感谢这位朋友的关注，，但按照你的方法做了之后，系统还是提示有“未指定的错误”，请各们朋友再提提意见！ THANK YOU VERY MUCH！！！

Answer 3

跟踪一下错误在哪里
TreeView1.Selected 刚开始运行的时候好像是没有selected ？

Answer 4

//delphi 7,测试通过的，希望对你有帮助，文件路径要用绝对路径
procedure TForm1.TreeView1DblClick(Sender: TObject);
var
  item:ttreeNode;
begin
  item:=self.TreeView1.Selected;
  if item.Text='第一节点' then
  begin
    OleContainer1.CreateObjectFromFile(ExtractFilePath(Application.ExeName)+'1.docx',false);
    self.OleContainer1.Show;
    self.OleContainer1.Close;
  end;
  if item.Text='第二节点' then
  begin
    OleContainer1.CreateObjectFromFile(ExtractFilePath(Application.ExeName)+'2.docx',false);
    self.OleContainer1.Show;
    self.OleContainer1.Close;
  end;
end;