unit SCEdit; interface uses
SysUtils, Classes, Controls, StdCtrls, Windows; type
TNumEdit = class(TEdit)
private
{ Private declarations }
protected
procedure CreateParams(var Params: TCreateParams); override;
{ Protected declarations }
public
constructor Create(Owner: TComponent); override;
{ Public declarations }
published
{ Published declarations }
end; procedure Register; implementation procedure Register;
begin
RegisterComponents( "Standard ", [TNumEdit]);
end; procedure TNumEdit.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.Style := Params.Style or ES_NUMBER or ES_CENTER;
end; constructor TNumEdit.Create(Owner: TComponent);
begin
inherited;
Text := "0 ";
end;
但我就是不会把它注册,不知道怎么使用这段代码!!!
请大家帮帮忙(我是菜鸟)!!!!
SysUtils, Classes, Controls, StdCtrls, Windows; type
TNumEdit = class(TEdit)
private
{ Private declarations }
protected
procedure CreateParams(var Params: TCreateParams); override;
{ Protected declarations }
public
constructor Create(Owner: TComponent); override;
{ Public declarations }
published
{ Published declarations }
end; procedure Register; implementation procedure Register;
begin
RegisterComponents( "Standard ", [TNumEdit]);
end; procedure TNumEdit.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.Style := Params.Style or ES_NUMBER or ES_CENTER;
end; constructor TNumEdit.Create(Owner: TComponent);
begin
inherited;
Text := "0 ";
end;
但我就是不会把它注册,不知道怎么使用这段代码!!!
请大家帮帮忙(我是菜鸟)!!!!
standard 后面有空格吧