Delphi 窗体置顶

2020-08-27

窗口的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);


阅读92