Разработка компонентов в DELPHI. Вощинская Г.Э. - 50 стр.

UptoLike

Составители:

Рубрика:

unit TimeLabel;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls,

Forms, Dialogs, StdCtrls, extctrls;

type

TTimeLabel = class(TCustomLabel)

private

FActive: Boolean;

protected

T: Ttimer; // Ɍɚɣɦɟɪ

procedure GetTime (s: Tobject);

procedure ChangeActive(a: boolean);

public

constructor Create (Owner: Tcomponent); override;

destructor Destroy; override;

published

property Active: Boolean read FActive write ChangeActive;

property Color;

property Font;

end;

procedure Register;

implementation

procedure TTimeLabel.GetTime;

begin

// ɗɬɨɬ ɦɟɬɨɞ ɨɬɨɛɪɚɠɚɟɬ ɧɚ ɡɚɝɨɥɨɜɤɟ ɜɪɟɦɹ. ɑɬɨɛɵ ɜɫɟ

// ɪɚɛɨɬɚɥɨ, ɟɝɨ ɧɚɞɨ ɛɭɞɟɬ ɧɚɡɧɚɱɢɬɶ ɫɨɛɵɬɢɸ OnTimer

// ɬɚɣɦɟɪɚ.

if Active then