delphi实现自适应的方法
来源:互联网 发布:单位网络服务器限速 编辑:程序博客网 时间:2024/05/16 01:54
一、根据新的分辨率自动重画表单及控件
先在表单单元的Interface部分定义两个常量,表示设计时的屏幕的宽度和高度(以像素为 单位)。在表单的Create事件中先判断当前分辨率是否与设计分辨率相同,如果不同,调用表 单的SCALE过程重新能调整表单中控件的宽度和高度。
Const
Orignwidth=1800;
Orignheight=600;
procedureTForm1.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;
SCALE过程在调整控件宽度和高度的同时,也自动调整控件字体的大小,以适应新的分辨率, 但美中不足的是它并不改变控件的顶点坐标位置,也就是说,该过程不改变控件之间的相对 位置关系。要想调整控件之间的选队相对位置,还需要自己编程实现。
二、将机器分辨率更改为设计时的分辨率
这种方法不改变表单本身,而是将屏幕分辨率更改为与表单设计时用到的分辨率相同。它需要用到WINDOWSAPI函数EnumDisplaySettings和ChangeDisplaySettings,前者取当前显示模式信息,后者则更改显示设置,具体参数的含义请参见DELPHI帮助。设计时宽度常量 和高度常量的定义如方法一。
procedureTForm1.FormCreate(Sender:TObject);
var
devmode:tDevicemode;
begin
if screen.width<>orignwidth then
begin
if EnumDisplaySettings(nil,0,devmode)then
begin
devmode.dmfields:=dm_pelswidth ;//ORdm_pelsheight;
devmode.dmpelswidth:=orignwidth;{宽度}
devmode.dmpelsheight:=orignheight;{高度}
ChangeDisplaySettings(devmode,0);{更改设置}
end;
end;
end;
以上两种方法在WINDOWSXP+DELPHI7环境下均已通过,二者相比,前者是主动适应,后者则是被动适应。
第一种做出来一般不好看,多数情况下还需要自己去修改
第二种做法不科学,将软件大小设置为一个确定的分辨率和直接做成这样大的程序没有任何区别
- delphi实现自适应的方法
- DELPHI中自适应表单的实现----转
- DELPHI中自适应窗体的实现
- 窗体大小自适应分辨率的实现方法
- QT下实现分辨率自适应的方法
- Android自适应屏幕的实现方法
- QT下实现分辨率自适应的方法
- QT下实现分辨率自适应的方法
- 加壳exe的方法--delphi实现
- Delphi实现获取磁盘空间大小的方法
- delphi控件实现圆角的方法
- 多种方法实现自适应布局
- (转)QT下实现分辨率自适应的方法
- css实现多列高度自适应的方法
- Android中Webview自适应屏幕实现的三种方法
- 实现自适应页面的方法,适合APP开发
- CSS3 DIV自适应宽度、水平居中的实现方法
- WinForm中实现picturebox自适应图片大小的方法
- solr和Elasticsearch搜索引擎的区别和使用方式
- ValueError: Missing scheme in request url: h
- 4.7 实例成员与类成员
- 使用QQ互联完成网站的QQ第三方登录(详解+坑)
- jquery-ajax+springMVC实现文件上传
- delphi实现自适应的方法
- MyEclipse及Tomcat的配置
- static关键字使用总结
- 位域全解析
- org.slf4j.Logger报错
- springboot学习历程
- 【maven】配置阿里镜像库
- hdu-1874-畅通工程续
- SpringBoot 中文手册 --Part IV --41 测试