用编程来实现24小时制到12小时制的转换

1 2 3 下一页

　　昨天有一位网友在群聊中提到了这个问题，晚上回去想了很久。花了三个小时，终于找到了解决的方法，现在拿出来与大家分享：
　　
　　首先想到的是TDateTimePicker控件有没有属性来实现这一功能的转换，因为这样做的好处不言而知。在我看了TDateTimePicker、

　　TCommonCalendar这两个类的源码后得出了结论，不能用控件的属性或过程来实现这一转换。

　　于是只好改变思路：

　　我们知道，在Windows下可以修改时间的显示方式，具体方法如下:
　　“控制面板”->“区域选项”（WINXP则是“日期与时间的显示方式”）->“时
　　间”。在“时间格式”一栏中可以修改时间的显示格式，具的显示格式可在在“外观
　　示例”中可以看到。
　　现在可以知道“H:mm:ss”显示的是24小时制，而“tth:mm:ss”显示的则是12小时
　　制。
　　
　　我们把“时间格式”设置为“tth:mm:ss”后再点击“确定”按钮退出。
　　现在再来在窗体上放一个TDateTimePicker控件，OK，达到的预期的效果。
　　
　　刚准备舒一口气，又转念一想，程序到了别人的电脑那不是又不行了？？
　　看来，还得继续工作。
　　
　　我们知道Windows的系统设置一般都保存在注册表中。现在的关键是找到时间显示格式所保存的注册表主键。

　　想一下，用的注册表搜索功能。
　　我现在的系统时间是12小时制，它的显示格式是“tth:mm:ss”。好，就来搜索这个
　　吧。终于找到了第一个，仔细思量一下，应该是的：主键是：
　　HKEY_CURRENT_USER\ControlPanel\International
　　而其中的sTimeFormat键值名就是时间格式。
　　但是，里边还有那么多的键值，要修改哪些呢？又是一个问题。

　　想了一下，行，就用这个办法：

　　1、导出主键
　　2、在控制面板中把系统时间改为24小时制
　　3、再导出主键
　　4、运行两个记事体实例，分别打开刚才导出的主键（扩展名为.reg）
　　5、比较，删除键值名和数据都相同的行


　　

上一篇： Delphi开发单机瘦小数据库程序要点
下一篇： Delphi基础:Window 消息大全使用详解

1 2 3 下一页

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有