组件开发 TMvExcelTools = class(TComponent) 安装后在Delphi组件面板却不显示,包安装没有问题(200分)

以下是代码
TMvExcelTools = class(TComponent)
private
FList: TList;
FDataSource: TDataSource;
FTitle: string;
FTitleFont: TFont;
FTitleColor: TColor;
FAutoSize: Boolean;
FFileName: string;
FDataBec: Integer;
FOnNextRecord: TNotifyEvent;
function GetDataSet: TDataSet;
protected
function GetCount: Integer;
function GetField(Index: Integer): TExField;
procedure SetField(Index: Integer; Value: TExField);
procedure SetFieldIndex(Field: TExField; Value: Integer);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Add(Field: TExField);
procedure NewField;
procedure Clear;
function FindField(const FieldName: string): TExField;
function FieldByName(const FieldName: string): TExField;
function IndexOf(Field: TExField): Integer;
procedure Remove(Field: TExField);
property Count: Integer read GetCount;
property DataSet: TDataSet read GetDataSet;
property Fields[Index: Integer]: TExField read GetField write SetField;
function Execute: Boolean;
published
property Title: string read FTitle write FTitle;
property TitleFont: TFont read FTitleFont write FTitleFont;
property TitleColor: TColor read FTitleColor write FTitleColor;
property AutoSize: Boolean read FAutoSize write FAutoSize;
property FileName: string read FFileName write FFileName;
property DataBec: Integer read FDataBec write FDataBec default 2;
property DataSource: TDataSource read FDataSource write FDataSource;
property OnNextRecord: TNotifyEvent read FOnNextRecord write FOnNextRecord;
end;

procedure register;
implementation
procedure register;
begin
RegisterComponents('Other', [TMvExcelTools]);
end;
综上,注册也写上去了
安装组件的时候也有提示安装成功,但没有提示注册了哪些组件,在Delphi的组件面板上也没有显示...
本人初学组件开发,请各位大虾提点一下...
急等.....

菜单 project--options-- packages--add ,找到你刚刚安装的那个控件对应的bpl文件，一般都在projects目录下面的bpl目录

回复 0桁骀
我的bpl已经安装成功了,并且packages列表里面也存在,但就是组件注册不上去,不知道为什么?

沒人遇到过吗?是不是控件注册的问题呀?

我曾经遇到过，好像把 register 第一个字母大写就可以了，你试试（按理 delphi 是不区分大小写的，我也不知为什么，要不就是我记错了）：
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Other', [TMvExcelTools]);
end;

回复 kaida
没错,就是要大写,晕,搞了半天
谢谢楼上的!散分了