Delphi 窗体置顶

窗口的formShow事件中，增加以下代码：

  Application.NormalizeTopMosts; // 如果不加入这一句，非主窗口仍然不能置顶
  SetWindowPos(Self.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);

取消置顶

SetWindowPos(Self.Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);