求助，关于不同分辨率下的问题！！！！！

[wwbxp]

请问各位大侠，怎么用程序来控制不同分辨率下的控件位置，最好能给点例子。

[jinjazz]

多用一点有align属性的容器分割界面

[wwbxp]

除了用align属性外，其他就没办法了吗？能不能用代码控制？

[jxauyhj]

假设你在800*600的分辨率下设计的form,第一步：
inplementation
const
ScreenWidth: LongInt = 800; {I designed my form in 800x600 mode.}
ScreenHeight: LongInt = 600;

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
scaled := true;
if (screen.width <> ScreenWidth) then
begin
height := longint(height) * longint(screen.height) div ScreenHeight;
width := longint(width) * longint(screen.width) div ScreenWidth;
scaleBy(screen.width, ScreenWidth);
end;
end;

下一步，要让每个子控制的字体改变到合适的大小：
type
TFooClass = class(TControl); { needed to get at protected }
{ font property }

var
i: integer;
begin
for i := ControlCount - 1 downto 0 do
TFooClass(Controls[i]).Font.Size :=
(NewFormWidth div OldFormWidth) *
TFooClass(Controls[i]).Font.Size;
end;

[julong88]

align属性

还有Anchor

[jabcf]

我也想知道
gz

[wwbxp]

非常感谢！！！