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;