用 thisform.windowstate=2
或用API 的
nHdl=THISFORM.HWnd  &&取得窗口ID号
ShowWindowAsync(nHdl,9)
也不行

thisform.setall('Anchor',240)   如果表单事先 WINDOWSTATE=2的话，这条话句会失效

keyboard '{ctrl+f10}' 窗口最大化 也不行，不能满窗运行

运行后上面总是不能最大化

唯有点击图片上这个按钮才能得到最佳郊果

不行。不管怎么弄，都不理想，要不挡任务栏，要不不能到达最顶，如果表单先设windowstate=2的话，自适应控件大小就会失效。top=0也失效。唯有点击一下右上角最大化接钮就有用。我的config里面的screen=off

在按钮放keyboard也不行

不行。THISFORM.WINDOWSTATE=2 只能显示设计时的尺寸，比如10247*768 ,在表单的INI 事件中 THISFORM.WINDOWSTATE=2 只能显示为10247*768 ，如要我换了一台机器，分辩率大于这个的话，只能点击右上角的最大化，显示才理想。  如果表单事先设好 WINDOWSTATE=2的话。自适应命令行就失效。
给人看很不专业 很不专业啊。弄了2天了。没法解决。  CONFIG文件 设的 SCREEN=OFF


This.Caption='数据库管理系统'
thisform.WindowState= 2
FOR I=1 TO THIS.CONTROLCOUNT
WITH THIS.CONTROLS(I)
IF TYPE(".ANCHOR")#"U"
.ANCHOR=240
ENDIF
IF TYPE(".FontSize")#"U"
.FONTSIZE=.FONTSIZE*(SYSMETRIC(1)/THIS.WIDTH)
ENDIF
ENDWITH
ENDFOR
 


*KEYBOARD '{CTRL+f10}'


*Declare Long FindWindow In USER32.DLL String, String
*Declare Long ShowWindowAsync In USER32.DLL Long, Long
*nHdl=thisform.hwnd
*ShowWindowAsync(nHdl,9)


*Declare Long FindWindow In USER32.DLL String, String
*Declare Long ShowWindowAsync In USER32.DLL Long, Long

*nHdl=THISFORM.HWnd
*ShowWindowAsync(nHdl,9)
*ShowWindowAsync(_vfp.hWnd)
 *   SetForegroundWindow(nHdl ) &&激活

这些都试过了。都不行。