anireg.pas

Delphi 开发的的热键操作 很值得看的

unit AniReg;

interface

uses
  Classes, DsgnIntf,
  AboutPrp, AboutEdt,
  AniIcons, AniIcoEd,
  AniIcon, AniPlay,
  AniTray;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('SheAr', [TAnimatedIcon, TAnimatedIconPlayer, TAnimatedTrayIcon]);
  RegisterPropertyEditor(TypeInfo(TAboutInfo), nil, '', TAboutPropertyEditor);
  RegisterPropertyEditor(TypeInfo(TAnimatedIcons), nil, '', TAnimatedIconsProperty);
end;

end.