急急急！！谁能就救我？（高分请教）

OleContainer1.InsertObjectDialog

解决方案 »

  1.   

    我说的是不用插入对象对话框。还是要谢希pipai
      

  2.   

    procedure TForm1.Button1Click(Sender: TObject);
    begin
     OleContainer1.BorderStyle :=bsNone;  // 可在属性编辑器设置；
     OleContainer1.AutoActivate :=aaManual; // 可在属性编辑器设置；
     OleContainer1.CreateObjectFromFile('c:\aaa.doc',false);
    end;
      

  3.   

    感谢Apollo47,但是我说的是如何得到系统已注册的OLE对象列表，再创建一个相应的对象，不是从文件中创建。
    请继续讨论。
      

  4.   

    你可以先建一个临时文件，如何aaa.doc,再等用户输入后，提示他存盘呀，用法见Apollo47(阿波罗)　的方法，
      

  5.   

    to oysy:
    你的Apollo47(阿波罗)　的方法在哪？
    to ALL:
    另：如何得到系统已注册的OLE对象列表？