API（2）- 如何使PB窗口总在最上层

如何使PB窗口总在最上层(Always On Top)

　　通过SetWindowPos函数把窗口的显示层次修改为HWND—TOPMOST，就可使指定窗口永远不会被其它窗口覆盖，该函数声明为：

　　Function Long SetWindowPos(Long hwnd,Long ord,Long x,Long y,Long dx,Long dy,Long uflag) Library ″user32″

　　参数1为要顶层显示的窗口句柄，参数2指定显示的层次，参数7为附加选项，其余参数指定窗口位置和大小，均可忽略。在窗口的Open或Activate事件中加入如下函数调用：

　　SetWindowPos(Handle(This),－1,0,0,0,0,3)

　　参数 2 取－ 1 表示在最顶层显示窗口，取 1 表示在最底层显示；最后一个参数若取 1 ，表示窗口大小保持不变，取 2 表示保持位置不变，因此，取 3 （ =1 ＋ 2 ）表示大小和位置均保持不变，取 0 表示将窗口的大小和位置改变为指定值。