让VFP表单位于窗口最上层
Thisform.AlwaysOnTop = .T.或*！*将表单showwindow设成顶级表单就是2-as top lever form 再把下面代码放到表单的load里面即可实现需求。
DECLARE INTEGER FindWindow IN user32 STRING lpClassName, STRING lpWindowName
DECLARE INTEGER GetWindow IN user32 INTEGER hwnd,INTEGER wFlag
Declare integer SetParent in user32 integer hWndChild , integer hWndNewParent
DECLARE INTEGER SetWindowPos IN user32;
INTEGER hwnd,;
INTEGER hWndInsertAfter,;
INTEGER x,;
INTEGER y,;
INTEGER cx,;
INTEGER cy,;
INTEGER wFlags
#define HWND_TOPMOST -1
#define GW_CHILD 5
hwinxp= FindWindow("ProgMan",0)
vfhwnd= getWindow(_screen.hwnd,GW_CHILD)
SetParent(vfhwnd,hwinxp)
SetWindowPos(thisform.hwnd,HWND_TOPMOST, 0, 0, 0,0, 1)
页:
[1]