MdClockFrame.pas
资源名称:delphi.rar [点击查看]
上传用户:fh681027
上传日期:2022-07-23
资源大小:1959k
文件大小:1k
源码类别:
Delphi控件源码
开发平台:
Delphi
- unit MdClockFrame;
- interface
- uses
- Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
- ExtCtrls, StdCtrls;
- type
- TMdFramedClock = class(TFrame)
- Label1: TLabel;
- Timer1: TTimer;
- Bevel1: TBevel;
- procedure Timer1Timer(Sender: TObject);
- public
- constructor Create(AOnwer: TComponent); override;
- published
- property SubLabel: TLabel read Label1;
- property SubTimer: TTimer read Timer1;
- end;
- procedure Register;
- implementation
- {$R *.DFM}
- constructor TMdFramedClock.Create(AOnwer: TComponent);
- begin
- inherited;
- Timer1.SetSubComponent (true);
- Label1.SetSubComponent (true);
- end;
- procedure TMdFramedClock.Timer1Timer(Sender: TObject);
- begin
- Label1.Caption := TimeToStr (Time);
- end;
- procedure Register;
- begin
- RegisterComponents ('Md', [TMdFramedClock]);
- end;
- end.