如何使得delphi的程序适应不同的分辨率

fwonder06 2010-05-20 09:54:19

我做的Delphi 程序是在 1280*800 分辨率下的，但把程序放到 1024*800 或者800*600 下界面变得就不好看，
请问如何解决？？谢谢！

...全文

823 25 打赏收藏转发到动态举报

写回复

用AI写文章

25 条回复

切换为时间正序

请发表友善的回复…

发表回复

garnel 2010-05-31

打赏
举报

9楼的比较合理，这是个老问题了，D3，D4时就存在，修改分辨率终究不是好的方法。

haochin 2010-05-29

打赏
举报

[Quote=引用 9 楼 ccrun 的回复:]
合理设置各个子窗口的Anchors, 尽量不要随意修改用户的屏幕分辨率, 那样不友好.
[/Quote]

有道理。没事改什么用户电脑的分辨率啊。

shishen1003 2010-05-28

打赏
举报

学习！

dd_zhouqian 2010-05-27

打赏
举报

有个现成的组件easysize，楼主可以试试

zhongming_daq 2010-05-27

打赏
举报

Dephi是不是做基本的图像变换要简单一些？

猴子先生大宝贝 2010-05-26

打赏
举报

XML

把界面都用XML控制起来，为不同分辨率定制XML即可，虽然设计时稍微麻烦点，但是后期维护相当简单。

wliaoc 2010-05-26

打赏
举报

用api获取屏幕分辨率，根据分辨率来调整窗体大小

cmdream 2010-05-23

打赏
举报

[Quote=引用 9 楼 ccrun 的回复:]
合理设置各个子窗口的Anchors, 尽量不要随意修改用户的屏幕分辨率, 那样不友好.
[/Quote]
还是这样做比较好感觉

lhy 2010-05-22

打赏
举报

设计一个公式，然后再OnReSize里调整控件位置

tdsn866 2010-05-20

打赏
举报

nm yuikyurtyjrtyurt

wujinyuan 2010-05-20

打赏
举报

占位学习

haochin 2010-05-20

打赏
举报

只要不是太不好看，就不管它啦。

truelove7283159 2010-05-20

打赏
举报

学习学习

ljluck7687 2010-05-20

打赏
举报

有两种办法：
1、给程序设定一个分辨率，如1280*800，使程序始终运行在这个分辨率下
具体做法是：程序运行时，先查看当前系统分辨率，若与设定的不一样，就更改系统分辨率。程序关闭后，将系统分辨率还原为原来的值。缺点：程序会有1秒钟的黑屏，影响视觉
2、针对不同的分辨率，用scaleby对窗体进行缩放

taste品味 2010-05-20

打赏
举报

我觉得也是应该让自己适应客户，而不是反过来

飞牛 2010-05-20

打赏
举报

最好是让窗体适应屏幕，而不是屏幕适应窗体

幻想多巴胺 2010-05-20

打赏
举报

LAZIJIDING 2010-05-20

打赏
举报

学习学习

ccrun.com 2010-05-20

打赏
举报

合理设置各个子窗口的Anchors, 尽量不要随意修改用户的屏幕分辨率, 那样不友好.

guanking 2010-05-20

打赏
举报

在程序运行时调整分辨率，结束退出后恢复原来的分辨率，这样试试。

procedure TmainFRM.FormCreate(Sender: TObject);
if(Screen.width<>1024)then //在这里进行分辨率的调整，调成1024*768的
begin
change:=true;
flag:=EnumDisplaySettings(nil,0,DevMode); //取得旧的显示参数
if flag then
begin
screenWidth:=getdevicecaps(GetDc(0),HORZRES);
screenHeigth:=getdevicecaps(GetDc(0),VERTRES);
screenFrequency:=getdevicecaps(getdc(0),VREFRESH);
DevMode.dmFields:=DM_PELSWIDTH Or DM_PELSHEIGHT or DM_DISPLAYFREQUENCY;
DevMode.dmPelsWidth:=1024;
DevMode.dmPelsHeight:=768;
DevMode.dmDisplayFrequency:=screenFrequency;
ChangeDisplaySettings(DevMode,0); //设置新的显示参数
end;
end
else
change:=false;

procedure TmainFRM.FormDestroy(Sender: TObject); //在这里恢复原来的分辨率
var
flag:boolean;
DevMode:Tdevmode;
begin
if change then
begin
flag:=EnumDisplaySettings(nil,0,DevMode); //取得旧的显示参数
if flag then
begin
DevMode.dmFields:=DM_PELSWIDTH Or DM_PELSHEIGHT or DM_DISPLAYFREQUENCY;
DevMode.dmPelsWidth:=screenWidth;
DevMode.dmPelsHeight:=screenHeigth;
DevMode.dmDisplayFrequency:=screenFrequency;
ChangeDisplaySettings(DevMode,0); //设置新的显示参数
end;
end;
end;