基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

Delphi做的时钟很漂亮

  with paintbox1.Canvas do
  begin
    pen.Width :=1;
    pen.Color :=clRed;
    moveto(trunc(paintbox1.Width/2) ,trunc(paintbox1.Height/2));
    lineto(trunc(paintbox1.Width/2 x/1.4),trunc(paintbox1.Height/2-y/1.4));
    pen.width:=2;
    moveto(trunc(paintbox1.Width/2) ,trunc(paintbox1.Height/2));
    lineto(trunc(paintbox1.Width/2-x/4),trunc(paintbox1.Height/2 y/4));
    pen.Color :=clGreen;
    moveto(trunc(paintbox1.Width/2),trunc(paintbox1.Height/2));
    lineto(trunc(paintbox1.Width/2) trunc(x1/1.5),
      trunc(paintbox1.Height/2)-trunc(y1/1.5));
    pen.Width :=4;
    pen.Color :=clBlack;
    moveto(trunc(paintbox1.Width/2),trunc(paintbox1.Height/2));
    lineto(trunc(paintbox1.Width/2) trunc(x2/2.1),
      trunc(paintbox1.Height/2)-trunc(y2/2.1));
    Font.Size:=20;
    textout(trunc(paintbox1.Width/2)-10 ,trunc(paintbox1.Height/2)-140,'12');
    textout(trunc(paintbox1.Width/2)-5 ,trunc(paintbox1.Height/2) 110,'6');
    textout(trunc(paintbox1.Width/2) 160 ,trunc(paintbox1.Height/2)-15,'3');
    textout(trunc(paintbox1.Width/2)-170 ,trunc(paintbox1.Height/2)-15,'9');

  end;