让VFP表单位于窗口最上层

阿杰

Thisform.AlwaysOnTop = .T.


或

1. *！*将表单showwindow设成顶级表单就是2-as top lever form 再把下面代码放到表单的load里面即可实现需求。
   
2. DECLARE INTEGER FindWindow IN user32 STRING lpClassName, STRING lpWindowName
   
3. DECLARE INTEGER GetWindow IN user32 INTEGER hwnd,INTEGER wFlag
   
4. Declare integer SetParent in user32 integer hWndChild , integer hWndNewParent
   
5. DECLARE INTEGER SetWindowPos IN user32;
   
6.     INTEGER hwnd,;
   
7.     INTEGER hWndInsertAfter,;
   
8.     INTEGER x,;
   
9.     INTEGER y,;
   
10.     INTEGER cx,;
    
11.     INTEGER cy,;
    
12.     INTEGER wFlags
    
13. 
    
14. #define HWND_TOPMOST   -1
    
15. #define GW_CHILD 5
    
16. 
    
17. hwinxp= FindWindow("ProgMan",0)
    
18. vfhwnd= getWindow(_screen.hwnd,GW_CHILD)
    
19. SetParent(vfhwnd,hwinxp)
    
20. SetWindowPos(thisform.hwnd,HWND_TOPMOST, 0, 0, 0,0, 1)
    

复制代码