通用Delphi数据库输入控件DBPanel的实现

通用Delphi数据库输入控件DBPanel的实现(3)     procedure FreeEditors;            
- >释放数据输入控件的内存
    public
    procedure CreateEditors;//
    (DS: TDataSource; ColCount: Integer);
- >创建各字段的数据输入控件
    constrUCtor Create(AOwner:
    TComponent); override;
    destrUCtor Destroy; override;
    procedure AKeyPress(Sender:
    TObject; var Key: Char);
    procedure AKeyDown(Sender:
    TObject; var Key: Word; Shift:
    TShiftState);
    procedure ClearHits(ItemIndex: Integer);
    procedure AddHits(ItemIndex:
    Integer; Hits: array of string);
    function Editor(Index: Integer):
    TDBComboBox;
    { Public declarations }
    published
    property LeftLimit: Integer read
    FLeft write FLeft default 10;
    property TopLimit: Integer read
    FTop write FTop default 10;
    property EditorLen: Integer read
    maxTextLen write maxTextLen;
    property LabelLen: Integer read
    maxLabelLen write maxLabelLen   default 100;
    property LineHeight: Integer read
    FLineHeight write FLineHeight   default 15;
    property OnOkClick: TNotifyEvent
    read FClick write FClick;
    property DataSource: TDataSource
    read FDataSource write   FDataSource;