Question

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

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

Answer 1

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

追问

你是不是亲自验证过？对一般窗口可以，对WORD不行啊