delphi写的时钟

最新推荐文章于 2018-04-22 15:30:07 发布

fei997yang

最新推荐文章于 2018-04-22 15:30:07 发布

阅读量3k

点赞数

分类专栏： delphi 文章标签： delphi integer timer div forms interface

本文链接：https://blog.csdn.net/fei997yang/article/details/650813

版权

这是一个使用Delphi编写的桌面时钟程序，通过TTimer组件实时更新时间，并在窗体上绘制时钟指针和刻度。程序包含FormCreate、FormResize、Timer1Timer等事件处理，实现窗口大小改变时保持时钟位置不变，以及秒针、分针、时针的动态绘制。

摘要由CSDN通过智能技术生成

很久以前写的程序了，要整理机器，只好放到这了

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
    Timer1: TTimer;
    Timer2: TTimer;
    procedure windowsposchange(var Msg:TWMWINDOWPOSCHANGING);
    message WM_WINDOWPOSCHANGING;
    procedure Timer2Timer(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormResize(Sender: TObject);
private
    { Private declarations }
    Hour, Minute, Second: Word; {当前时间}
    OldMinute, OldSecond: Word; {旧时间}
    XCenter, YCenter, Radius: Integer; {当前窗体大小}
public
    { Public declarations }
    procedure DrawHand (XCenter, YCenter, Radius,
      BackRadius: Integer; Angle: Real);
    pr