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

  • 主题发起人 主题发起人 flyea917
  • 开始时间 开始时间
F

flyea917

Unregistered / Unconfirmed
GUEST, unregistred user!
以下是代码
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
没错,就是要大写,晕,搞了半天
谢谢楼上的!散分了
 
后退
顶部