请问怎么解决不同分辨率下窗体的显示问题?

[yythink]

我的程序是在1024*768下写的,结果在600*800下窗体都变样了,控件乱七八糟,出了一堆滚动条,请问怎么解决呀?多谢了

[mrtxc]

Scaled:=True;

[ollea]

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) div orignheight;
width:=longint(width)*longint(screen.width) div orignwidth;
scaleby(screen.width , orignwidth);
end;
end;

[yythink]

好像不行呀 是不是每个窗体都要加呀
我用
scaled:=true;
if (screen.width<>orignwidth) then
begin
scaleby(screen.width , orignwidth);
end;
主窗口好像可以了,不过子窗口都不行

[星星]

好像有个SetScreen函数的!

[黄海之滨渔夫]

size控件

[lovelymelon]

如果不行每个窗体都加程序，可以在程序的主窗体，如果有登录界面或显示界面，在登录界面或显示界面中加入代码，强制运行该程序的计算机的分辨率调整到设计程序时的分辨率


Const
Orignwidth=800;
Orignheight=600;

procedure TForm1.FormCreate(Sender: TObject);
var
devmode:tDevicemode;
begin
if screen.width<>orignwidth then
begin
if EnumDisplaySettings(nil,0,devmode) then
begin
devmode.dmfields:=dm_pelswidth OR dm_pelsheight ;
devmode.dmpelswidth:=orignwidth; {宽度}
devmode.dmpelsheight:=orignheight;{高度}
ChangeDisplaySettings(devmode,0); {更改设置}
end;
end;
end;

[lovelymelon]

Orignwidth=800;
Orignheight=600;
是程序在设计时的屏幕宽度和高度