tntjvdbother_register.pas

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

unit TntJvDBOther_Register;

interface

procedure Register;

implementation

uses
  DesignIntf, Classes,
  TntVer, TntJvAbout,
  TntJvDBRecCountLabel, TntJvDBGridS;

procedure Register;
procedure RegH (CC: TClass);
begin
  RegisterPropertyEditor(TypeInfo(TAboutInfo), CC, 'About', TAboutTntJv);
end;
begin
  RegisterComponents('Tnt Jv Data Controls', [
    TTntDBRecCountLabel,
    TTntJvDBGridS]);
  RegH (TTntDBRecCountLabel);
  RegH (TTntJvDBGridS);
end;

end.