1,183
社区成员




//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;