delphi如何实现将word文档总是显示在最上

获得文档窗口句柄，使用setWindowPos只能实现设置X,Y方向的位置，hwnd_topmost没有实现其功能，请教高手... 获得文档窗口句柄，使用setWindowPos只能实现设置X,Y方向的位置，hwnd_topmost没有实现其功能，请教高手展开

 我来答

1个回答

#热议# 生活中有哪些实用的心理学知识？

百度网友09d4ae1
2011-03-18 · TA获得超过267个赞

知道小有建树答主

回答量：169

采纳率：0%

帮助的人：203万

我也去答题访问个人页

关注

展开全部

用 setforegroundwindow试下
var
h : HWND;
begin

sleep(5000);
h := findwindow(nil,'杭嵊小吃外卖单.doc - Microsoft Word');
if h <> 0 then
setforegroundwindow(h);

更多追问追答

追问

此函数只是将背后的窗口提到前方来，并不能一直使窗口保持在最前啊，还有没有别的方法？

追答

一直使窗口保持在最前就用你说的setWindowPos呀，你参数没设置对吧。

procedure TForm1.Button1Click(Sender: TObject);
var
  h : HWND;
begin
  h := findwindow(nil,'testForm');
  if h > 0 then
    setwindowpos(h,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE OR SWP_NOSIZE);
end;