OLEContainer 最基本的用法

[baidu_36063547]

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

[santiaodahan]

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

[baidu_36063547]

引用 楼主 baidu_36063547 的回复:

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

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

[baidu_36063547]

[quote=引用 1楼 juno_393 的回复:] 如果是要在delphi窗体里显示TXT可以用memo，打开txt，然后对txt文本进行循环，添加到memo中、 memo1.lines.add(); 如果直接在外部打开txt文件，可以用shellexecute(Handle,'Open',PChar(应用名称),PChar(路径),nil,SW_SHOWNORMAL); [quote] 关键是我现在在练习使用这个控件，这样没意义

[juno_393]

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

[juno_393]

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