//声明:
SetWindowPos(
hWnd: HWND; {窗口句柄}
hWndInsertAfter: HWND; {窗口的 Z 顺序}
X, Y: Integer; {位置}
cx, cy: Integer; {大小}
uFlags: UINT {选项}
): BOOL;
//hWndInsertAfter 参数可选值:
HWND_TOP = 0; {在前面}
HWND_BOTTOM = 1; {在后面}
HWND_TOPMOST = HWND(- 1); {在前面, 位于任何顶部窗口的前面}
HWND_NOTOPMOST = HWND(- 2); {在前面, 位于其他顶部窗口的后面}
//uFlags 参数可选值:
SWP_NOSIZE = 1; {忽略 cx、cy, 保持大小}
SWP_NOMOVE = 2; {忽略 X、Y, 不改变位置}
SWP_NOZORDER = 4; {忽略 hWndInsertAfter, 保持 Z 顺序}
SWP_NOREDRAW = 8; {不重绘}
SWP_NOACTIVATE = $ 10; {不激活}
SWP_FRAMECHANGED = $ 20; {强制发送 WM_NCCALCSIZE 消息, 一般只是在改变大小时才发送此消息}
SWP_SHOWWINDOW = $ 40; {显示窗口}
SWP_HIDEWINDOW = $ 80; {隐藏窗口}
SWP_NOCOPYBITS = $ 100; {丢弃客户区}
SWP_NOOWNERZORDER = $ 200; {忽略 hWndInsertAfter, 不改变 Z 序列的所有者}
SWP_NOSENDCHANGING = $ 400; {不发出 WM_WINDOWPOSCHANGING 消息}
SWP_DRAWFRAME = SWP_FRAMECHANGED; {画边框}
SWP_NOREPOSITION = SWP_NOOWNERZORDER; {}
SWP_DEFERERASE = $ 2000; {防止产生 WM_SYNCPAINT 消息}
SWP_ASYNCWINDOWPOS = $ 4000; {若调用进程不拥有窗口, 系统会向拥有窗口的线程发出需求}
//举例:
procedure TForm1 .Button1Click(Sender: TObject);
begin
SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 100, 200, SWP_SHOWWINDOW);
end;
SetWindowPos(
hWnd: HWND; {窗口句柄}
hWndInsertAfter: HWND; {窗口的 Z 顺序}
X, Y: Integer; {位置}
cx, cy: Integer; {大小}
uFlags: UINT {选项}
): BOOL;
//hWndInsertAfter 参数可选值:
HWND_TOP = 0; {在前面}
HWND_BOTTOM = 1; {在后面}
HWND_TOPMOST = HWND(- 1); {在前面, 位于任何顶部窗口的前面}
HWND_NOTOPMOST = HWND(- 2); {在前面, 位于其他顶部窗口的后面}
//uFlags 参数可选值:
SWP_NOSIZE = 1; {忽略 cx、cy, 保持大小}
SWP_NOMOVE = 2; {忽略 X、Y, 不改变位置}
SWP_NOZORDER = 4; {忽略 hWndInsertAfter, 保持 Z 顺序}
SWP_NOREDRAW = 8; {不重绘}
SWP_NOACTIVATE = $ 10; {不激活}
SWP_FRAMECHANGED = $ 20; {强制发送 WM_NCCALCSIZE 消息, 一般只是在改变大小时才发送此消息}
SWP_SHOWWINDOW = $ 40; {显示窗口}
SWP_HIDEWINDOW = $ 80; {隐藏窗口}
SWP_NOCOPYBITS = $ 100; {丢弃客户区}
SWP_NOOWNERZORDER = $ 200; {忽略 hWndInsertAfter, 不改变 Z 序列的所有者}
SWP_NOSENDCHANGING = $ 400; {不发出 WM_WINDOWPOSCHANGING 消息}
SWP_DRAWFRAME = SWP_FRAMECHANGED; {画边框}
SWP_NOREPOSITION = SWP_NOOWNERZORDER; {}
SWP_DEFERERASE = $ 2000; {防止产生 WM_SYNCPAINT 消息}
SWP_ASYNCWINDOWPOS = $ 4000; {若调用进程不拥有窗口, 系统会向拥有窗口的线程发出需求}
//举例:
procedure TForm1 .Button1Click(Sender: TObject);
begin
SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 100, 200, SWP_SHOWWINDOW);
end;