delphi使用DSOFramer创建了一个对象(word)如何赋给 WORD_TLB 对象

tnhbsr2 2015-08-11 11:51:28
delphi使用DSOFramer创建了一个对象(word),但是该ocx对word的操作方法很少,
那么创建的application 对象,如何赋给 WORD_TLB 对象呢?

我目前测试的代码,应该大部分功能都能调用,但是有些功能好像调用不了,没反应


//DSOFramer 创建对象
TFramerControl.Create(Self);

with FDSOFramer do
begin
Parent := AParent;
Align := alClient; // 居中
Visible := True; // 可见
Titlebar := false; // 标题栏
Menubar := false; // 工具栏
// Toolbars := false; //
FDSOFramer.Activate;
end;
//DSOFramer 打开一个文档
var
oFalse: OleVariant;
oWord: OleVariant;
OOwner: OleVariant;

oFalse := false; // 是否只读
// OOwner := 'Word.Application';
oWord := 'Word.Document';
Result := false;
FDSOFramer.Close;
FDSOFramer.Open(AWord, oFalse, oWord);
//对象给 WORD_TLB
//这里只给了application,没有给文档对象,
//在这里是不是还有其他对象传递,才能让 WORD_TLB 对象更全面的融合进 DSOFramer 创建 的 对象中?


WordApp: WordApplication; //WORD_TLB

try
WordApp := GetActiveOleObject('Word.application') as WordApplication;
except
on e: exception do
begin
Application.MessageBox(pchar('类型转换错误!提示信息: ' + e.Message), '提示信息',
MB_ICONASTERISK);
end;
end;


疑问:
//这里只给了application,没有给文档对象,
//在这里是不是还有其他对象传递,才能让 WORD_TLB 对象更全面的融合进 DSOFramer 创建 的 对象中?
...全文
435 回复 打赏 收藏 转发到动态 举报
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

1,183

社区成员

发帖
与我相关
我的任务
社区描述
Delphi Windows SDK/API
社区管理员
  • Windows SDK/API社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧