开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
MdClock.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：1k
源码类别：

Delphi控件源码

开发平台：

Delphi

MdClock.pas：源码内容
  1. unit MdClock;
  3. interface
  5. uses
  6.   SysUtils, Windows, Messages, Classes, Graphics,
  7.   Controls, StdCtrls, ExtCtrls;
  9. type
  10.   TMdClock = class (TCustomLabel)
  11.   private
  12.     FTimer: TTimer;
  13.   protected
  14.     procedure UpdateClock (Sender: TObject);
  15.   public
  16.     constructor Create (AOwner: TComponent); override;
  17.   published
  18.     property Align;
  19.     property Alignment;
  20.     property Color;
  21.     property Font;
  22.     property ParentColor;
  23.     property ParentFont;
  24.     property ParentShowHint;
  25.     property PopupMenu;
  26.     property ShowHint;
  27.     property Transparent;
  28.     property Visible;
  29.     property Timer: TTimer read FTimer;
  30.   end;
  32. procedure Register;
  34. implementation
  36. constructor TMdClock.Create (AOwner: TComponent);
  37. begin
  38.   inherited Create (AOwner);
  39.   // create the internal timer object
  40.   FTimer := TTimer.Create (Self);
  41.   FTimer.Name := 'ClockTimer';
  42.   FTimer.OnTimer := UpdateClock;
  43.   FTimer.Enabled := True;
  44.   FTimer.SetSubComponent (True);
  45. end;
  47. procedure TMdClock.UpdateClock (Sender: TObject);
  48. begin
  49.   // set the current time as caption
  50.   Caption := TimeToStr (Time);
  51. end;
  53. procedure Register;
  54. begin
  55.   RegisterComponents('Md', [TMdClock]);
  56. end;
  58. end.