很菜的问题快来抢分啊: 100(有关Tfont)(100分)

  • 主题发起人 主题发起人 hadyq
  • 开始时间 开始时间
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;
 
变量没有建立。xxfont:=tfont.create(nil);
 
对,在使用font之前应该建立。
 
加一句!
最后要Free!别忘!
 
在使用FONT之前构造它,xxFont:=TFont.Create(Nil);
最后也是Free;
 
谢谢, 我试试成功就给分
 
多人接受答案了。
 
后退
顶部