关于窗体适应不同分辨率的问题! (100分)

P

PigDong

Unregistered / Unconfirmed
GUEST, unregistred user!
[blue]据说有一种控件可以使窗体自动适应不同的分辨率,哪里有这个控件?
如果写代码的话,窗体上的所有组件都要用代码控制,岂不是很惨?[/blue]
 
var
i:integer;
begin
for i:=0 to form1.controlcount-1do

begin
form1.controls.width:=你想要的宽度
   form1.controls.heignt:=你想要的高度
   ......
end;
end;
 
用Screen.Width和Screen.Height来调整,例如Form为全屏:
Left:=0;
Top:=0;
Width:=Screen.Width;
Height:=Screen.Height;
那么不论任何分辨率,都可以得到全屏效果了!!!
其他的例如Panel登空间的大小也是类似调整极了也!
 
Form1.anchors
试试吧
 
你找一找Real控件包的rsFormGrow吧。
 
各为老大我要的不是全屏的效果。我要的是在一个分辨率下设置好窗体后,换个分辨率也
不会影响窗体内各个组件的比例和相对位置!我现在的做法是把窗体的Scale设置为False,
不过谁有号的点子我还是会散分的!嘿嘿
 
只能写代码,每个有字体属性的都要控制
 
多人接受答案了。
 
顶部