pb中利用api使pb编写的窗口始终置前

pb中利用api使pb编写的窗口始终置前

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

Function Long SetWindowPos(Long hwnd, Long ord, Long x, Long y, Long

dx, Long dy, Long uflag) Library “user32.dll”

参数1为要顶层显示的窗口句柄，参数2指定显示的层次，参数7为附加选项，其余

参数指定窗口位置和大小，均可忽略。在窗口的Open或Activate事件中加入如下

函数调用：

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

参数2取-1表示在最顶层显示窗口，取1表示在最底层显示；最后一个参数若取1，

表示窗口大小保持不变，取2表示保持位置不变，因此，取3（=1+2）表示大小和

位置均保持不变，取0表示将窗口的大小和位置改变为指定值