请问如何使程序中的表单尺寸自动适应不同电脑的屏幕尺寸？我设计时的电脑是1280*600，但到一些台式机的大屏幕上，表单的尺寸就没有放大至整个屏幕，请问如何使表单的尺寸及上面的控制自动调整尺寸？

主表单（主窗口）根据用户屏幕当前的分辩率设置决定，其他表单根据主表单的大小设定。

谢谢楼上的回复！不过好像与我问的问题没对上呢，继续求答案

程序启动时先取得用户电脑屏幕分辨率，然后动态设置主表单的大小。也可以将主表单的windowsstat属性为最大化。
其他表单启动时根据主窗口的尺寸来动态设置大小。
好象与楼主的问题对的上吧？

我也想知道这个问题，请高手们赐教。自己写的程序，在自己的电脑上使用，屏幕尺寸没有问题，但在别人电脑上使用就不能满屏，想问一下，
能否在主表单中用命令来根据不同电脑分辨率设置，使表单自动放大和缩小，满屏显示。

答案是肯定的。最简单的办法是设置表单的windowstate属性为最大化。

    这个问题网上已有许多讨论的帖子也有解决问题的办法。但解决起来比较麻烦，大意是先测定设计时分辨率与用户电脑分辨率的差别比例，然后按照这个差别比例系数逐个将所有控件放大。如果要更好看，还要将控件的字体、左边距、顶边距也按比例放大。
    我没做过商业软件，不想下这么大的功夫。我是用两种方法：
    1. 按6楼的办法；
    2. 设计一个选项，由用户来选择是否按设计分辨率来启动。（用木瓜大师提供的分辨率设置函数来实现，启动时按设计时分辨率，记住用户的分辨率，退出时恢复用户分辨率。）

在表单init中
WITH thisform
.Width=SYSMETRIC(1)
.Height=SYSMETRIC(2 )
endwith

********************************调整解析度*************
Local OldHeight,OldWidth,ChangeHeight,ChangeWidth
OldHeight=600
OldWidth =800
ChangeHeight=0
ChangeWidth=0

IF SYSMETRIC(1)#OldWidth
  THISFORM.Lockscreen=.F. &&详情查阅LockScreen属性
  ChangeHeight=Sysmetric(2)/OldHeight
  ChangeWidth=Sysmetric(1)/OldWidth
   
      **变动表单外框
         IF This.BaseClass='Form'
           WITH THIS
             .Height=.Height*ChangeHeight
             .Width =.Width*ChangeWidth
             .Top   =.Top*ChangeHeight
             .Left  =.Left*ChangeWidth
           ENDWITH
         ENDIF
   
   **变动表单内所有控件的大小和位置
     FOR  I =1 TO  This.ControlCount
       WITH THIS.Controls(I)
         .Height=.Height*ChangeHeight
         .Width =.Width*ChangeWidth
         .Top   =.Top*ChangeHeight
         .Left  =.Left*ChangeWidth
       ENDWITH
     ENDFOR
     Thisform.Lockscreen=.F.
     ENDIF
  THISFORM.REFRESH   
********调整解析度结束*****************************