delphi如何实现一根过圆心的直线在圆圈内每秒绕圈走动的效果！！
用image canvas画出了一个圆，现在要由圆心引出一条直线在圆圈内绕圆走动的效果，圆圈固定大小，直线的长短相当于圆的半径或者稍长于半径！！
小弟初来乍到，分数不多 希望各位大侠帮帮忙！！谢谢了
[解决办法]
一次过程大致分解如下：
每次要走好大的弧度，自己用三角函数算啊，然后再lineto画就可以鸟！
然后重复不间断上面的过程。
实在不明白到网上下个时钟代码分析下就明白了！
[解决办法]
with image1.canvas do
begin
moveto(width div 2,height div 2); //圆心
lineto(width div 2+rad*cos(ang),height div 2-rad*sin(ang)); //rad是半径，ang是角度（每秒旋转6度）
end;
