小弟自定义了一个组件是从TGRAPHICCONTROL继承下来的,自已加上了PICTUREN属性。
,但是创建时显示内存报错,代码如下:PICTURE的定义
PROPERTY PICTURE:TPICTURE READ FPICTURE WRITE SETPICTURE;
注册属性编辑器:
REGISTERPROPERTY(TYPEINFO(TPICTURE),MYGR,‘PICTURE‘,TPICTUREPROPERTY)大家帮忙啊!
,但是创建时显示内存报错,代码如下:PICTURE的定义
PROPERTY PICTURE:TPICTURE READ FPICTURE WRITE SETPICTURE;
注册属性编辑器:
REGISTERPROPERTY(TYPEINFO(TPICTURE),MYGR,‘PICTURE‘,TPICTUREPROPERTY)大家帮忙啊!
// 重载create, destory 函数;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;....constructor TGraphicControl1.Create(AOwner: TComponent);
begin
inherited;
fpicture := Tpicture.Create;
end;destructor TGraphicControl1.Destroy;
begin
fpicture.Free;
inherited;
end;// 至于注册函数,因为delphi自己已经注册,所以你不注册也可以,如果注册的话,放在register函数中.procedure Register;
begin
RegisterPropertyEditor(TypeInfo(TPicture), nil, 'PICTURE', TPictureProperty);
RegisterComponents('Samples', [TGraphicControl1]);
end;