我的第一个自定义组件，结果失败，为什么

Question

我把它install了一下结果看不见，是我的代码有问题吗
代码如下：哪位大侠救救我
unit QZXEdit;interfaceuses
  Windows, Messages, SysUtils, Classes, QControls, QStdCtrls;type
  TInputType=(cString,cInteger,cFloat,cMoney);
  TZXEdit = class(TEdit)
  private
    { Private declarations }
    FInputType:TInputType;
  protected
    { Protected declarations }
        procedure KeyPress(var Key: Char); override;
  public
    { Public declarations }
  published
    { Published declarations }
    property InputType:TInputType read FinputType write FinputType Default cstring;
  end;procedure Register;implementationprocedure Register;
begin
  RegisterComponents('ZXControl', [TZXEdit]);
end;{ TZXEdit }procedure TZXEdit.KeyPress(var Key: Char);
begin
  inherited;
  if FInputType=cInteger then
  begin
        if (Key<'0') or (Key>'9') then
        begin
                if Key>Chr(26) then
                begin
                        Key:=Chr(0);
                end;
        end;
  end;
end;end.

Answer 1

我帮你看了一下，组件列表中是存在的，但是不知道为什么没出现，我没动过应该没有HIDE，再帮你看看

Answer 2

我开始是用install component的方法，
后来什么方法都试了，还是不行！

Answer 3

你注册了吗？ 看看下面得代码procedure Register;
begin
  RegisterComponents('Samples', [TTest]);
  RegisterComponents('Samples', [TMyImgPanel]);
end;

Answer 4

代码中不是有
RegisterComponents('ZXControl', [TZXEdit]);
兄弟我当然注册了呀