//窗体置顶SetWindowPos(Handle,HWND_TOPMOST,0,0,0,0,SWP_NOSIZE + SWP_NOMOVE)//取消置顶SetWindowPos(Handle,HWND_NOTOPMOST,0,0,0,0,SWP_NOSIZE + SWP_NOMOVE);
把一个窗体ShowModel
Form1.FormStyle := fsStayOnTop;
Form.ShowModel
