delphi控件大小自适应分辨率怎么做

zhanshen0215488 2009-08-24 07:18:27

我正在1024X768的分辨率开发程序,但是加大分辨率后控件的位置不能随窗体大小改变,怎么办啊?

...全文

190 1 打赏收藏转发到动态举报

写回复

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

xiaocongzhi 2009-08-24

打赏
举报

回复

Anchors
align这两个属性
你设置一下

这个是本人最近编制的一个窗体继承类。程序代码很短，但很有用，解决了Delphi程序设计中窗体及其包含的控件自适应不同屏幕分辨率的问题。即你的程序可能是在1024X768屏幕分辨率下设计的，但是需要在屏幕分辨率为1280X1024的机器上运行，如果不做专门的处理，有些界面可能会变形，有些控件可能会看不见。这个类对上述问题给出了一般性的解决方案，尽管稍嫌粗糙，但能满足普通软件开发的需要。用法很简单，只要在新创建的窗体中引用这个类所在的单元，并将TForm1=Class(TForm)改为TForm1=Class(TfdForm)就可以了，其他不需要做任何修改。

一、根据新的分辨率自动重画表单及控件　　先在表单单元的Interface部分定义两个常量，表示设计时的屏幕的宽度和高度（以像素为单位）。在表单的Create事件中先判断当前分辨率是否与设计分辨率相同，如果不同，调用表单的SCALE过程重新能调整表单中控件的宽度和高度。 Const Orignwidth=1800; Orignheight=600; proced

在窗体依据屏幕分辨率自适应调整尺度方面，昨天的工作可以说是一个突破点。昨天的工作找到了长期以来我的原有方案的问题所在，这是非常关键的。但是昨天晚上的解决方案并不完美，今天的这个才是比较完美的解决版。先补充说明一下这个问题的重要性。这本来只是一个很小的技术问题，但在现有的Windows软件开发过程中，这个问题非常常见。一些非常著名的商业化软件，也会发现这方面的问题。Delphi的IDE本身...

Delphi自动适应屏幕大小
//自动适应屏幕大小：作者：海宏软件，周承昊。
function autoFitScreen640_480(oContainer:TWinControl):Boolean;
const defaultScreenWidth=800;   defaultScreenHeight=600;
var i,j:integer;      n:double;   v:Variant;
    cmt:TComponent;

转自http://bbs.2ccc.com/topic.asp?topicid=398928 这个问题我以前发过，但解决的不完满。egust后来发给我一堆似天书般的源码，我没看懂也没有用起来。今天我发布的源码对于Delphi窗体适应于不同屏幕分辨率的问题有个比较完美的解决方案，我做了好写试验，原来调整不好的窗体控件分布，现在都会随着屏幕分辨率的变化而排列得规规矩矩了。比较闹心的是字体，有

语言基础/算法/系统设计

16,748

社区成员

33,247

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章