紧急求助:我开发的一个控件,安装之后怎么找不到了?(100分)

  • 主题发起人 冰冷的雨
  • 开始时间

冰冷的雨

Unregistered / Unconfirmed
GUEST, unregistred user!
我做的一个控件,安装的过程中没有任何错误,在控件面板的属性里也可以看到它,
可就是控制面板上没有出现,直接在代码中引用也出错,而且重装的话会提示该控件
已经存在了。
控件的名称是TEImage,父类是TImage,包文件是d:/borland/delphi 6/lib下的
dclusr.bpl。控件代码如下:
unit EImage;

interface

uses
Windows, Messages, SysUtils, Classes, Controls, ExtCtrls, QGraphics,
Graphics, QExtCtrls, Types ;

type
BitColor = (BIT_BLACK, BIT_WHITE);

TEImage = class(TImage)
private
{ Private declarations }
FWhiteBlackValve: integer;
FBmpIsWB: boolean;
FBmpIsGray: boolean;
FBmpLoaded: boolean;
procedure SetWhiteBlackValve(valve: integer);
function Get1BitColor(x: integer; p: byte): BitColor;
protected
{ Protected declarations }
public
{ Public declarations }
constructor Create(AOwner: TComponent); override;
procedure Color24ToGray;
procedure Gray24ToWB;
published
{ Published declarations }
property Align;
property Anchors;
property AutoSize;
property BmpIsGray: boolean read FBmpIsGray;
property BmpIsWB: boolean read FBmpIsWB;
property BmpLoaded: boolean read FBmpLoaded;
property Center;
property Constraints;
property DragMode;
property Enabled;
property IncrementalDisplay;
property ParentShowHint;
property Picture;
property PopupMenu;
property ShowHint;
property Stretch;
property Transparent;
property Visible;
property WhiteBlackValve: integer read FWhiteBlackValve write SetWhiteBlackValve;
property OnClick;
property OnContextPopup;
property OnDblClick;
property OnDragDrop;
property OnDragOver;
property OnEndDrag;
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
property OnProgress;
property OnStartDrag;
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('Standard', [TEImage]);
end;

constructor TEImage.Create(AOwner: TComponent);
begin
inherited Create(AOwner);

FBmpLoaded := false;
FBmpIsGray := false;
FBmpIsWB := false;
end;

function TEImage.Get1BitColor(x: integer; p: byte): BitColor;
begin
.
.
.
end;

procedure TEImage.SetWhiteBlackValve(valve: integer);
begin
.
.
.
end;

procedure TEImage.Color24ToGray;
var
.
.
begin
.
.
.
end;

procedure TEImage.Gray24ToWB;
begin
.
.
.
end;

end.
哪位可以告诉我问题在什么地方啊?
 
应该在Standard面板上啊,你看看面板的属性里面的All里面有没有,会不会被隐藏了?
 
是应该在Standard面板上啊,可是它就是不出现啊!属性里面的Standard面板上就有,
也不可能是隐藏了:(
 
控件图标有没改那,是不是和其它图标一样了
 
属性里面的图标是我自己定义的,面板上就没有
 
卸了,自己命名一个包,装到其它面板上。
 
也试过了,连DELPHI也重装了,还是不行。不过装其它控件就没问题(包括自己写的一些
其它控件),是不是上面的程序有问题呢?
 
点击菜单中View-->Component List
输入TEImage就知道到底安装成功没有。
 
安装成功了呀,就是找不到也用不了!
 
请拿分!
 
顶部