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 創建 的 物件中?
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/81133.html
上一篇：關于進制轉換問題