频道分类

Delphi Fmx 绘制非常精确的 时分秒针

作者:admin 来源: 日期:2020/5/14 15:14:49 人气: 标签:

 

绘制时钟可以非常直观得看到时间,方便的客户体验,但是网上的绘制都是 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