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