如何将WORD嵌入到DELPHI规定的区域如PaneL中打开时只在Panel中显示?(100分)

  • 主题发起人 主题发起人 reso-213
  • 开始时间 开始时间
R

reso-213

Unregistered / Unconfirmed
GUEST, unregistred user!
如何将WORD嵌入到DELPHI规定的区域如PaneL中,打开时只在Panel中显示?其他部分不被覆盖,我用OLE 打开总是全屏显示,覆盖了自己的窗口,而且不好控制?
 
panel不行,coolbar好象可以
 
WROD 和自己的程序在一个界面,我想将WORD程序程序嵌入到 Tabsheet 中
 
procedure TForm1.Button1Click(Sender: TObject);
var
wordHandle:Hwnd;
begin
wordHandle:=FindWindow(nil,Pchar('Word的标题'));
if wordHandle<>0 then
windows.SetParent(wordHandle,Panel1.Handle);
end;
wordHandle最好用类名和标题一块判断.
 
WROD 和自己的程序在一个界面,我想将WORD程序程序嵌入到 Tabsheet 中 ,左边是TREEVIEW 不被覆盖
 
WROD 和自己的程序在一个界面,我想将WORD程序程序嵌入到 Tabsheet 中 ,左边是TREEVIEW 不被覆盖 右边是TABSHEEP1 另外WORD 工具栏也在 tabsheep1 中
 
把word建到另一个窗体去,然后调用,调用时form1.parent:=panel1;form1.client:=AlClient,form1.borderStyle:=none
 
大器晚成:能否详细点,不是太明白
 
放个OLE在Panel里,谁说OLE都会全屏显示.加上这句吧,能解决你问题.
OleContainer1.DoVerb(-1);
给分吧!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
supergq:我就是这么做的,放个OLE在Panel里面,显示显示时,WORD 菜单栏和自己的菜单栏形成了一个菜单栏,自己左边的Treeview 被WORD 所在的PANEL覆盖了看不到,所以不行的,我是想让WORD 显示在 右边设定的 TABSHEET1中的PANEL中,WORD 工具栏也在其中。
 
ysp娃娃:

可否详细点,非常感谢,谢谢。
 
搞不顶就用
Twebbrowser
 
留个E-mail给你个用Olecontainer的代码
关键部分代码

procedure TForm1.Button1Click(Sender: TObject);
begin
with TForm2.Create(Self.PageControl1) do
begin
Dock(Self.TabSheet1,Self.TabSheet1.ClientRect);
Show;
end;
end;
 
好的 zbyijianeng@163.com
 
iamy:在不在?
 
iamy:不能在 tabsheep1 中显示
 
qq: 41216937
 
这个效果
http://www.increaser.cn/未命名.jpg
需要存在c:/1.doc
 
后退
顶部