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表示将窗口的大小和位置改变为指定值