Question

delphi做时钟程序，分钟和小时刻度怎么添加？

我是菜鸟级的新手，想做个时钟程序。可不知道如何正确添加分钟指针，我用正玄余弦函数添加刻度的时候，感觉添加的位置和我想想象的不是同一个位置，结果添加完了 分布不均匀 有地地方刻度密集 有的地方 稀疏！ 到底怎么正确添加分钟和小时指针呢 ？谢谢各位！
我做的分钟刻度 是用正玄余弦函数添加的，每个刻度都有个计算公式！太繁琐了，有没有更简单的方法！

Answer 1

我系统里找的，希望帮到你
procedure TForm1.Timer1Timer(Sender: TObject);
var
MyNow : TDateTime;
Hour, Min, Sec, mSec : Word;
vh, vm, vs : Real;
begin
Self.Refresh;
MyNow := Now;
DecodeTime(MyNow,Hour,Min,Sec,mSec);

vh := Hour/12.0*2*Pi;
vm := Min/60.0*2*Pi;
vs := Sec/60.0*2*Pi;

with Canvas do
begin
Pen.Width:=4;
Pen.Color := clBlack;
MoveTo(60,60);
LineTo(60+Round(25*Sin(vh)),60-Round(25*Cos(vh)));
Pen.Width:=2;
Pen.Color := clBlack;
MoveTo(60,60);
LineTo(60+Round(45*Sin(vm)),60-Round(45*Cos(vm)));
Pen.Width:=1;
Pen.Color := clRed;
MoveTo(60,60);
LineTo(60+Round(55*Sin(vs)),60-Round(55*Cos(vs)));
end;
end;

Answer 2

换个思路 分钟刻度相当于 圆周的1/60 你用一个循环就搞定了 为啥每个刻度都要公式呢?

追问

虽然你没能给我答案 但我感觉你的分析是正确的！给你最佳吧！

追答

OK

Answer 3

你的刻度是绘制的啊，那样效果肯定不会好，因为是按照像素点显示的，而且坐标值也是取的近似值，实在不行可以搞个图片嘛

Answer 4

建议你用photoshop先画一个，或者在百度上搜时钟图片，然后程序通过算法旋转图片框（做透明处理）