如何让我的窗体大小适应分辨率的变化而变化？

[lorvery]

如何让我的窗体大小随分辨率的变化而成比例变化，窗体上的组件的大小也要成比例变化。
谢谢

[lorvery]

怎么没有人回答我的问题？
请高手指教

[老之]

用Screen.Width和Screen.Height来获取屏幕宽度和高度
假设你是在1024×768下编程，主窗体可以这样：

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Height:=500;
Form1.Width:=500;
case (Screen.Width) of
800: begin
Form1.Height:=Form1.Height*800 div 1024;
Form1.Width:=Form1.Width*800 div 1024;
end;
640: begin
Form1.Height:=Form1.Height*640 div 1024;
Form1.Width:=Form1.Height*640 div 1024;
end;
end;
end;

其他组件可以根据需要来写

[jackie168]

假如你在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;

[dd_zhouqian]

这样固然灵活，但是实现起来还是有些不尽如人意的地方，最好给他定死，如：分辨率为800*600,系统不是该分辨率将不允许进入程序

[microluck]

楼上的做法太。。。。

[chenchangfu]

对，不错，up

[ctrlqrj]

子控件的位置也是一个问题啊

[shadowstar]

游戏都是自己调分辨率的。

[chyk7301]

请问:我的frame窗体如何更改分辨率?

[youcheng1]

用控件的Anchors属性啊。

[jinzhili]

我讲一下我的方法：在800*600下把所有窗体都建好。然后在1024*768下再画界面就行了。只要不改变窗体的大小就没有问题。我现在正在写的软件就是这么做的。不然在800*600下写程序太难写了。