本文整理自网络，侵删。
绘制时钟可以非常直观得看到时间，方便的客户体验，但是网上的绘制都是 1秒 1秒绘制，我这里把时分秒角度非常精确绘制出来。看到起让人更佳舒畅。
下面开始教学使用方法：
界面上放上 Circle 作为时针盘面。
然后放入 TLine 作为 时 分 秒 命名为 LSec; LMin; LHou;
最后放一个 Timer ，间隔触发修改为 6 ，让Timer第6豪秒 实时改变时分秒的角度
最后在 timer事件写下计算代码如下：
procedure TForm1.Timer1Timer(Sender: TObject);
var
SysTime: TSystemTime;
begin
GetLocalTime(SysTime);
//秒针 1秒=1k豪秒，每秒为 6 度 (60/1000*毫秒)
LSec.RotationAngle:= SysTime.wSecond*6 + SysTime.wMilliseconds*0.006; //
//分针 分针1分(6度)=60秒 (6/60*秒)
LMin.RotationAngle:= SysTime.wMinute*6 + SysTime.wSecond*0.1;
//时针 每个时为30度， (30/60*分)
LHou.RotationAngle:= SysTime.wHour*30 + SysTime.wMinute*0.5;
end;
注意引用单元为
Winapi.Windows, System.DateUtils;
本程序可用于穿戴式设备表盘绘制等功能
来源：http://www.delphifmx.com/node/67
相关阅读 >>
Delphi winapi: getparent - 获取指定窗口的父窗口句柄
Delphi 判断图像格式bmp jpg gif pcx png psd ras sgi tiff err
Delphi tms web core 通过url 传递参数
更多相关阅读请进入《Delphi》频道 >>
