H
hadyq
Unregistered / Unconfirmed
GUEST, unregistred user!
我写了个控件,从Tquery继承,其它新建属性都可以使用,
但我新建的一个propety new_font:Tfont在双击该属性时,
不会弹出设置font的窗体,反而出错(Can not assign a nil to a Tfont)
以下是我的部分类代码, 请各位帮忙查查是什么问题
TdyqQuery = class(TQuery)
private
pte_titlefont:tfont;
{ Private declarations }
protected
procedure settitlefont(value:tfont);
{ Protected declarations }
public
constructor create(Aowner:tcomponent);override;
{ Public declarations }
published
property dyq_titlefont:tfont
read pte_titlefont write settitlefont ;
{ Published declarations }
end;
procedure Tdyqquery.settitlefont(value:tfont);
begin
pte_titleFont.Assign(Value);
end;
但我新建的一个propety new_font:Tfont在双击该属性时,
不会弹出设置font的窗体,反而出错(Can not assign a nil to a Tfont)
以下是我的部分类代码, 请各位帮忙查查是什么问题
TdyqQuery = class(TQuery)
private
pte_titlefont:tfont;
{ Private declarations }
protected
procedure settitlefont(value:tfont);
{ Protected declarations }
public
constructor create(Aowner:tcomponent);override;
{ Public declarations }
published
property dyq_titlefont:tfont
read pte_titlefont write settitlefont ;
{ Published declarations }
end;
procedure Tdyqquery.settitlefont(value:tfont);
begin
pte_titleFont.Assign(Value);
end;