如何使一个窗口总是在最上面（不是fsstayontop)

Question

请教

Answer 1

为什么不用 fsstayontop ?

Answer 2

Form1.FormStyle := fsStayOnTop;

Answer 3

这个没什么用
我看到过一个API，他能始终使窗口真正在最上面

Answer 4

SetWindowPos(Handle , HWND_TOPMOST, 0,0,0,0, SWP_SHOWWINDOW)

Answer 5

wisenowa(127.0.0.1) 朋友果然高明，学习。

Answer 6

Form1.FormStyle := fsStayOnTop;

Answer 7

有一个API好象可以实现这个功能
楼主用GOOGLE去查一下吧

Answer 8

在form1.create中
SetWindowPos(self.handle, HWND_TOPMOST,
      self.Left, self.Top, self.Width, self.Height,0);
取消置前
SetWindowPos(self.handle, HWND_NOTOPMOST,
       self.Left, self.Top, self.Width, self.Height,0);

Answer 9

procedure Createparams(Var Params:TCreateParams);override;
.....
procedure TNotesForm.Createparams(var Params: TCreateParams);
begin
  Inherited CreateParams(Params);
  With Params do  begin
    EXStyle:=ExStyle or WS_EX_TOPMOST OR WS_EX_ACCEPTFILES or WS_DLGFRAME;
    Params.WndParent:=GetDesktopWindow;
  end;
end;

Answer 10

Form1.FormStyle := fsStayOnTop;