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

通用Delphi数据库输入控件DBPanel的实现(6)       Editors[i].OnKeyDown := AKeyDown;
    end;
    { 创建Ok按钮}
    OkButton := TButton.Create(Owner);
    OkButton.Parent := FScrollBox;
    OkButton.Left := Editors[n-1].Left;
    OkButton.Top := Editors[n-1].Top + TextHeight;
    OkButton.Caption := '确定';
    OKButton.OnClick := FClick;
  end;
end;

destrUCtor TDBPanel.Destroy;
begin
  FreeEditors;
  Inherited Destroy;
end;

function TDBPanel.Editor(Index: Integer): TDBComboBox;
begin
  if Index< Length(Editors) then Result := Editors[Index]
  else Result := nil;
end;

procedure TDBPanel.FreeEditors;
var
  i,n: Integer;
begin
  { 内存的释放是要有顺序的！必须以创建的相反的顺序进行！
  尤其是当组件之间有父子关系时}
  if OkButton<  >nil then OkButton.Free;
  if Editors<  >nil then begin
    n := Length(Editors);
    for i:=0 to n-1 do Editors[i].free;
    Editors := nil;
    n := Length(Labels);
    for i:=0 to n-1 do Labels[i].Free;
    Labels := nil;
  end;
  if FScrollBox<  >nil then begin
    FScrollBox.Free;
    FScrollBox := nil;
  end;
end;

end.