Delphi:窗体自适应屏幕分辨率(根据预设值的比例改变)
2024-08-26 17:28:17
delphi 程序适应屏幕分辨率,先在表单单元的Interface部分定义两个常量,
表示设计时的屏幕的宽度和高度(以像素为单位)。
在表单的Create事件中先判断 当前分辨率是否与设计分辨率相同,
如果不同,调用表单的SCALE过程重新能调整表单中控件的宽度和高度。
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;
http://blog.csdn.net/cmdasm/article/details/45324559
最新文章
- 类加载机制(深入理解JAVA虚拟机学习笔记)
- CentOS下X Window与命令行界面的切换
- Suricata配置文件说明
- PLSQL_性能优化系列16_Oracle Tuning Analyze优化分析
- java根据sessionid获取session
- Swift 脚本(运行时带参数)
- C#实现DNS解析服务
- World’s Smallest h.264 Encoder
- MVC小系列(十八)【给checkbox和radiobutton添加集合的重载】
- Java 堆内存(Heap)[转]
- 解决VIM编辑器中文乱码
- API接口安全性设计
- dedecms后台系统基本参数标题
- MySQL通过localhost无法连接数据库的解决
- 抓取某东的TT购买记录分析TT购买趋势
- firefox设置每次访问时检查缓存
- MySQL中的事务及读写锁实现并发访问控制
- CSS 1. 选择器
- 【Jmeter自学】Jmeter实战-web程序(六)
- python测试开发django-19.admin后台自定义显示
热门文章
- 微设计(www.weidesigner.com)介绍系列文章(二)
- packets
- 安装LVS安装LVS和配置LVS的工作比较繁杂
- PHP Strict standards:Declaration of … should be compatible with that of…(转)
- jquery图片滚动
- 开源消息中间件DotNetMQ
- Android 带你玩转实现游戏2048 其实2048只是个普通的控件(转)
- .Net程序员 Solr-5.3之旅 (二)Solr 安装
- android 屏幕适配1 ——dimens.xml的适配
- DNS负载均衡