自定义了一个组件,请问为什么安不到面板上呀.! ( 积分: 100 )

unit StatusBarEx;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, Buttons;

type
TStatusBarEx = class(TStatusBar)
private
public
constructor Create(AOwner: TComponent); override;
published
end;

TSpeedButtonEx = class(TSpeedButton)
private
FComment: String;
public
published
property Comment: String read FComment write FComment;
end;

procedure Register;

implementation

constructor TStatusBarEx.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
ControlStyle:= ControlStyle + [csAcceptsControls];
end;

procedure Register;
begin
RegisterComponents('win32', [TStatusBarEx, TSpeedButtonEx]);
end;

end.
怎么进行编译,怎么让他上面板呀.我用的是delphi 2005

unit StatusBarEx;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, Buttons;

type
TStatusBarEx = class(TStatusBar)
private
public
constructor Create(AOwner: TComponent); override;
published
end;

TSpeedButtonEx = class(TSpeedButton)
private
FComment: String;
public
published
property Comment: String read FComment write FComment;
end;

procedure Register;

implementation

constructor TStatusBarEx.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
ControlStyle:= ControlStyle + [csAcceptsControls];
end;

procedure Register;
begin
RegisterComponents('win32', [TStatusBarEx, TSpeedButtonEx]);
end;

end.
怎么进行编译,怎么让他上面板呀.我用的是delphi 2005

我发现我所有的给件都安不上.包括从delphi 里直接选中一个.加入都不出来.是那里锁定了吗.
怎么进行修改呀.谢了.

帮顶

--------签名档---------------------------

惊爆开源站

http://www.source520.com

80G源码电子书免费免注册下载,大量精辟技术文档库随时更新

代码没有问题，怎么会装部上的呢，不可能的。

不会是你ide设置有问题吧，不行就重装好了

很正常的啊 重新装DELPHI看看 偶以前也遇到的[8D]

新键一个包，然后把你的代码加进去试试。

代码正常，可能是你的Delphi IDE有问题。

接受答案了.