用WORDAPPLICATION打开MS WORD后，怎样在WORD窗口上浮一个小窗口。(200分)

B

billru

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-17

• #1

用DELPHI启动WORD后，我想在WORD窗口上浮一小窗口，以便能用来关闭WORD和文件存数据库等等。
我设计了一个很小的FORM，并把其设为FSstayontop，但发现其只能浮在DELPHI程序之上，不
能在WORD之上，我也用了WIN API SETWINDOWPOS（好象是这个函数），还是不行，请问是否有
解决办法？

 

Y

YB_unique

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-17

• #2

要自己对窗体进行定位！获得WORD窗体的位置，然后转换坐标将自己的窗体显示在想要的位置！

 

B

bluerain

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-18

• #3

不会啊,只要设置成FSStayontop应该就是浮在上面了.
然后在打开word后(即程序中wordapp.visible := true后),调用
SetWindowPos(Form1.Handle,HWND_TOPMOST,X,Y,0,0,SWP_NOSIZE);
其中X,Y就是你的窗口的左上角.

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-18

• #4

这样的问题，一般需要进行VBA编程，对于窗口等就没有必要做了。
只需要建立一个菜单条，然后在上面添加两个按钮，一个保存，一个关闭等，然后对这两个事件编程。
如果不使用VBA保存数据库，可以使用消息机制，通知其他程序进行数据保存。
这时候要注意SendMessage和PostMessage的区别。

 

B

billru

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-18

• #5

bluerain,
按照你的方法，我试过，还是不行，你能不能帮我试一下。

 

B

bluerain

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-18

• #6

我试过了. 不是很精确的话应该可以啊.
只是不知道你具体要什么效果.不过事先说一下,如果用户改变Word的大小,恐怕是不行了.
要不给个信箱,我寄一个例子过来,看看是不是符合你的需求.

 

B

bbs_delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-19

• #7

同意bluerain的说法，我试了试，可以

 

B

billru

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-19

• #8

麻烦寄一个例子billru@163.net

 

B

billru

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-25

• #9

多人接受答案了。