各位兄弟!
我随便写了一点点,可是总是无法安装进去。
谢谢各位指点了。
原代码如下:
unit QMy_Memo;interfaceuses
SysUtils, Classes, QControls, QStdCtrls;type
TMy_Memo = class(TMemo)
private
FXm:String;
FXh:String;
FDh:string;
procedure SetXm(value:string);
procedure SetXh(value:string);
procedure SetDh(value:String); { Private declarations }
protected
{ Protected declarations }
public
constructor Create(AOwner: TComponent);override;
destructor Destroy; override;
:
{ Public declarations }
published
property Xm:string read FXm write SetXm;
property Xh:string read FXh write SetXh;
property Dh:string read FDh write setDh;
{ Published declarations }
end;procedure Register;implementationprocedure Register;
begin
RegisterComponents('My_Pleate', [TMy_Memo]);
end; procedure TMy_Memo.SetXm(value:string);
begin
if FXm<>value then
FXm:=value; end; procedure TMy_Memo.SetXh(value:string);
begin
if FXh<> value then
FXh:=value;
end; procedure TMy_Memo.SetDh(value:string);
begin
if FDh<> value then
FDh:= value;
end;
constructor TMy_Memo.Create(AOwner: TComponent);
begin
Inherited Create(AOwner);
end;destructor TMy_Memo.Destroy;
begin
inherited;
end;end.
我随便写了一点点,可是总是无法安装进去。
谢谢各位指点了。
原代码如下:
unit QMy_Memo;interfaceuses
SysUtils, Classes, QControls, QStdCtrls;type
TMy_Memo = class(TMemo)
private
FXm:String;
FXh:String;
FDh:string;
procedure SetXm(value:string);
procedure SetXh(value:string);
procedure SetDh(value:String); { Private declarations }
protected
{ Protected declarations }
public
constructor Create(AOwner: TComponent);override;
destructor Destroy; override;
:
{ Public declarations }
published
property Xm:string read FXm write SetXm;
property Xh:string read FXh write SetXh;
property Dh:string read FDh write setDh;
{ Published declarations }
end;procedure Register;implementationprocedure Register;
begin
RegisterComponents('My_Pleate', [TMy_Memo]);
end; procedure TMy_Memo.SetXm(value:string);
begin
if FXm<>value then
FXm:=value; end; procedure TMy_Memo.SetXh(value:string);
begin
if FXh<> value then
FXh:=value;
end; procedure TMy_Memo.SetDh(value:string);
begin
if FDh<> value then
FDh:= value;
end;
constructor TMy_Memo.Create(AOwner: TComponent);
begin
Inherited Create(AOwner);
end;destructor TMy_Memo.Destroy;
begin
inherited;
end;end.
这还有什么意思呢,各位大虾,帮个忙呀