mdarrreg.pas

来自「delphi6 programming example」· PAS 代码 · 共 31 行

unit MdArrReg;

interface

uses
  DesignIntf, Classes;

procedure Register;

implementation

uses
  MdArrow;

procedure Register;
begin
  RegisterComponents ('Md', [TMdArrow]);
  RegisterPropertyInCategory (
    'Input', TMdArrow, 'OnArrowDblClick');
  RegisterPropertyInCategory (
    'Arrow', TMdArrow, 'Direction');
  RegisterPropertyInCategory (
    'Arrow', TMdArrow, 'ArrowHeight');
  RegisterPropertyInCategory (
    'Arrow', TMdArrow, 'Filled');
  RegisterPropertyInCategory (
    'Visual', TMdArrow, 'Filled');
end;

end.