OLEContainer 最基本的用法

Question

来一个例子：把一个本地TXT文档在其中打开

Answer 1

如果是要在delphi窗体里显示TXT可以用memo，打开txt，然后对txt文本进行循环，添加到memo中、
memo1.lines.add();
如果直接在外部打开txt文件，可以用shellexecute(Handle,'Open',PChar(应用名称),PChar(路径),nil,SW_SHOWNORMAL);

Answer 2

Delphi安装目录下Demos\ActiveX\OleCtnrs中有例子。

Answer 3

Quote: 引用 1楼 juno_393  的回复:

如果是要在delphi窗体里显示TXT可以用memo，打开txt，然后对txt文本进行循环，添加到memo中、
memo1.lines.add();
如果直接在外部打开txt文件，可以用shellexecute(Handle,'Open',PChar(应用名称),PChar(路径),nil,SW_SHOWNORMAL);

Quote:

关键是我现在在练习使用这个控件，这样没意义

Answer 4

OleContainer1.CreateObject(‘软件（word/excel/txt）’,False);
OleContainer1.DoVerb(ovShow);