程序怎么自动适应当前屏幕分辩率?

[lzk005]

delphi作的程序怎么实现窗体控件自动适应当前屏幕分辩率?
并不是像游戏那样强制改变当前屏幕分辩率,有什么好办法重绘呢

[ccrun.com]

合理安排控件的Align和Anchors属性

[lzk005]

怎么才算合理呢?
我在窗体里面大多都是用panel来控制其他控件的位置，但是在不同的分辩率下，有的控件还是看不完整。

[ccrun.com]

这个合理安排，不是一句话能说清的。
你可以先建一个新工程，随便添加一些控件在Form上，然后通过设置每个控件的Anchors的不同值，然后拖动窗体进行缩放时，就可以看到每个控件的大小和位置的变化情况。

[sparklerl]

up 好像是今天第一帖

根据分辨率 动态设置元素的大小和位置

不过好像很烦

[mdejtod]

[Quote=引用 4 楼 sparklerl 的回复:]
up 好像是今天第一帖

根据分辨率 动态设置元素的大小和位置

不过好像很烦
[/Quote]
之前试过一下，效果很差，可能是我的代码有问题

[taste品味]

动态定位罗
取得当前分辨率，设置合适的比例。
再设置位置

[de410]

在单元的Interface部分定义两个常量，表示设计时的屏幕的宽度和高度（以像素为单位）。
在表单的Create事件中先判断当前分辨率是否与设计分辨率相同，如果不同，调用表单的SCALE过程重新能调整表单中控件的宽度和高度。

Const
   Orignwidth=800;
   Orignheight=600;

procedure TForm1.FormCreate(Sender:TObject);
begin
   scaled:=true;
   if (screen.width<>orignwidth) then
   begin
     height:=longint(height)*longint(screen.height)divorignheight;
     width:=longint(width)*longint(screen.width)divorignwidth;
     scaleby(screen.width,orignwidth);
   end;
end;

[xiaowei_001]

方法都比较笨觉得,目前没发现好办法