MdClockFrame.pas
上传用户:fh681027
上传日期:2022-07-23
资源大小:1959k
文件大小:1k
源码类别:

Delphi控件源码

开发平台:

Delphi

  1. unit MdClockFrame;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  5.   ExtCtrls, StdCtrls;
  6. type
  7.   TMdFramedClock = class(TFrame)
  8.     Label1: TLabel;
  9.     Timer1: TTimer;
  10.     Bevel1: TBevel;
  11.     procedure Timer1Timer(Sender: TObject);
  12.   public
  13.     constructor Create(AOnwer: TComponent); override;
  14.   published
  15.     property SubLabel: TLabel read Label1;
  16.     property SubTimer: TTimer read Timer1;
  17.   end;
  18. procedure Register;
  19. implementation
  20. {$R *.DFM}
  21. constructor TMdFramedClock.Create(AOnwer: TComponent);
  22. begin
  23.   inherited;
  24.   Timer1.SetSubComponent (true);
  25.   Label1.SetSubComponent (true);
  26. end;
  27. procedure TMdFramedClock.Timer1Timer(Sender: TObject);
  28. begin
  29.   Label1.Caption := TimeToStr (Time);
  30. end;
  31. procedure Register;
  32. begin
  33.   RegisterComponents ('Md', [TMdFramedClock]);
  34. end;
  35. end.