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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

Caption:=TimeToStr(Time);
end;
procedure TTimeLabel.ChangeActive;
begin
FActive:=A;
T.Enabled:=A;
Visible:=A;
end;
constructor TTimeLabel.create;
begin
Inherited create(Owner);
T:=TTimer.Create(Self);
T.Enabled:=true;
T.Interval:=1000;
// ɉɪɢɫɜɚɢɜɚɟɦ ɫɨɛɵɬɢɸ ɨɛɪɚɛɨɬɱɢɤ:
T.OnTimer:=GetTime;
FActive:=True;
Width:=50;
Height:=30;
end;
destructor TTimeLabel.destroy;
begin
T.Free;
inherited Destroy;
end;
procedure Register;
begin
RegisterComponents('Samples', [TTimeLabel]);
end;
end.
51

Страницы