unit StatusBarEx;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, ComCtrls;
type
TstatusbarEX = class(TStatusBar)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
constructor create (aowner: Tcomponent); override;
end;procedure Register;implementation
constructor TstatusbarEX.create(AOwner: TComponent);begin
inherited Create(AOwner);
{为了让TStatusBarEx控件能接受其它控件,必须
使ControlStyle属性(集合类型)包含csAcceptsControls元素}
ControlStyle:= ControlStyle + [csAcceptsControls];
end;
procedure Register;
begin
RegisterComponents('Win32', [TStatusBarex]);
end;
end.
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, ComCtrls;
type
TstatusbarEX = class(TStatusBar)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
constructor create (aowner: Tcomponent); override;
end;procedure Register;implementation
constructor TstatusbarEX.create(AOwner: TComponent);begin
inherited Create(AOwner);
{为了让TStatusBarEx控件能接受其它控件,必须
使ControlStyle属性(集合类型)包含csAcceptsControls元素}
ControlStyle:= ControlStyle + [csAcceptsControls];
end;
procedure Register;
begin
RegisterComponents('Win32', [TStatusBarex]);
end;
end.
解决方案 »
- 运行的时候提示project XX.exe raised exception class EConvertError with message "is not a valid integer value"是怎么回事?
- Delphi消息处理函数问题请教
- 用delphi作web开发,写的是isapi,用到了TDataSet等数据库控件,需要对这些控件作线程同步吗?
- 请教,这段代码错在哪里?谢谢解答!!!
- 50高分请教"没有注册类别"的讨厌问题,请高手解决
- 在右键中添加一个项容易嘛?
- 求教!求教!求教!求教!在线等待
- 高分求DELPHI4.0中的哪个做安装程序的工具,只要这个版本的!
- 我想问一下,关于点击图象按比例缩放??
- 世界难题->!MicroSoft都没有解决!或许你可以,请进
- 如何判断机器联接到互联网!
- ADODB怎样取出_recordset数据?
提示这看看什么意思.
constructor create (aowner: Tcomponent); override;
constructor Create(AOwner: TComponent); override;
{ Public declarations }
constructor create (aowner: Tcomponent); override;
end;
这样就不报错了.可是就是在面板里找不到呀.