tntvarious_register.pas

来自「TntExUpdate 是 流行的 TntUnicodeControls控件的扩」· PAS 代码 · 共 29 行

unit TntVarious_Register;

interface

procedure Register;

implementation

uses
  DesignIntf, Classes,
  TntVer, TntAbout, TntJvAbout,
  TntJv0TipOfDay;

procedure Register;
procedure RegH (CC: TClass);
begin
  RegisterPropertyEditor(TypeInfo(TAboutInfo), CC, 'About', TAboutTntJv);
end;
begin
  RegisterComponents('Tnt JMN Others', [
    TTntJv0TipOfDay
    ]);
  RegH (TTntJv0TipOfDay);
end;

{--------------------------------------}

end.