delphi写的时钟

最新推荐文章于 2025-03-07 00:50:59 发布

原创

最新推荐文章于 2025-03-07 00:50:59 发布 · 3.2k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #integer #timer #div #forms #interface

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

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

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; {当前窗体