首页 >> 读书频道 >> 电脑 >> DELPHI 中 自 适 应 表 单 的 实 现
 
· 如何在注册表中注册BDE
· CGI技术及其开发(一)
· CGI技术及其开发(二)
· Delphi实现壁纸更换
· length 属性 (S
· 任何动态改变/添加网络设
· 让彩色光标出现在Delp
· 面向组件的系统开发方法
· 一 个 实 用 的Del
· 提高客户机/服务器应用系
· 用Delphi 实 现
· 自 定 义 快 速 报
 
· 红楼梦:120回全本[清
· 常见图像文件格式详解
· 拉封丹寓言
· 电视剧《刁蛮公主》下载和
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

DELPHI 中 自 适 应 表 单 的 实 现


查看有无更新版本

关键字:Delphi/Pascal 2006-9-22

 

 一、 根 据 新 的 分 辨 率 自 动 重 画 表 单 及 控 件

---- 先 在 表 单 单 元 的Interface 部 分 定 义 两 个 常 量, 表 示 设 计 时 的 屏 幕 的 宽 度 和 高
度( 以 像 素 为 单 位)。 在 表 单 的Create 事 件 中 先 判 断 当 前 分 辨 率 是 否 与 设 计 分
辨 率 相 同, 如 果 不 同, 调 用 表 单 的SCALE 过 程 重 新 能 调 整 表 单 中 控 件 的 宽 度
和 高 度。 ConstOrignwidth=800;Orignheight=600;procedure TForm1.FormCreate(Sender: TObject);beginscaled:=true;if (screen.width<>orignwidth) thenbeginheight:=longint(height)*longint(screen.height) div orignheight;width:=longint(width)*longint(screen.width) div orignwidth;scaleby(screen.width , orignwidth);end;end;

---- SCALE 过 程 在 调 整 控 件 宽 度 和 高 度 的 同 时, 也 自 动 调 整 控 件 字 体 的 大 小,
以 适 应 新 的 分 辨 率, 但 美 中 不 足 的 是 它 并 不 改 变 控 件 的 顶 点 坐 标 位 置, 也
就 是 说, 该 过 程 不 改 变 控 件 之 间 的 相 对 位 置 关 系。 要 想 调 整 控 件 之 间 的 选
队 相 对 位 置, 还 需 要 自 己 编 程 实 现, 有 兴 趣 的 读 者 可 试 一 试。

---- 二、 将 机 器 分 辨 率 更 改 为 设 计 时 的 分 辨 率

---- 这 种 方 法 不 改 变 表 单 本 身, 而 是 将 屏 幕 分 辨 率 更 改 为 与 表 单 设 计 时 用 到
的 分 辨 率 相 同。 它 需 要 用 到WINDOWS API 函 数EnumDisplaySettings 和ChangeDisplaySettings, 前
者 取 当 前 显 示 模 式 信 息, 后 者 则 更 改 显 示 设 置, 具 体 参 数 的 含 义 请 参 见
DELPHI 帮 助。 设 计 时 宽 度 常 量 和 高 度 常 量 的 定 义 如 方 法 一。 procedure TForm1.FormCreate(Sender: TObject);vardevmode:tDevicemode;beginif screen.width<>orignwidth then begin if EnumDisplaySettings(nil,0,devmode) then begindevmode.dmfields:=dm_pelswidth OR dm_pelsheight ;devmode.dmpelswidth:=orignwidth; {宽度}devmode.dmpelsheight:=orignheight;{高度}ChangeDisplaySettings(devmode,0); {更改设置}end;end;end;

---- 以 上 两 种 方 法 在WINDOWS 95+DELPHI 3.0 环 境 下 均 已 通 过, 二 者 相 比, 前 者 是
主 动 适 应, 后 者 则 是 被 动 适 应。

DELPHI 中 自 适 应 表 单 的 实 现

[ 1 ]
DELPHI 中 自 适 应 表 单 的 实 现 num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑