Delphi组件开发过程中碰到的怪问题
求教高手：我按下面的代码做了个测试，发现组建TT2在属性对话框中设置MyFont有效，而运行的时候字体又还原了，搞了一天了也不知道为什么，还望高人指点一下，谢谢了！
unit T1;
interface
uses
SysUtils, Classes, Controls, ExtCtrls, Graphics, StdCtrls;
type
TT1 = class(TPanel)
private
FFont:TFont;
procedure SetFont(const Value: TFont);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure SetLayout;virtual;
published
property MyFont:TFont read FFont write SetFont;
end;
TT2=class(TT1)
private
FLabel:TLabel;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure SetLayout;override;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('MyTest', [TT2]);
end;
{ TT1 }
constructor TT1.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FFont:=TFont.Create;
FFont.Assign(inherited Font);
end;
<
相关问答：
我在模块里自定义了一个函数:stradd()
可是在adoquery1.sql.add('select stradd(author) from book');
时提示stradd未定义...
这个问题有什么办法可以解决的吗? 非常感激!
(在A ......
如何实现delphi 提交表单
我的思路是 webbrowser1 打开 谷歌
然后 鼠标 点击到 搜索里面
然后 输入 要搜索的关键字 然后 点击 搜索
我现在就是 如何 添入 要搜索的关键字 不� ......
嘿嘿，又来麻烦各位大牛了！我想了解我在代码的事件属性里面看不到有什么事件，还有在时间控件里面的Enabled的属性是False，这下蒙了，不知道程序运行之后执行的是那条命令，希望各位大牛赐教啦！
谢谢！
我这下 ......
Delphi(Pascal) code:
procedure Tpaigon.N2Click(Sender: TObject);
var
j,col:integer;
filename:string;
MSExcel,xlsheet,xlBook:Variant; //ole ComObj
begin
IF DBGrid1.Fields[0].AsString=' ......
接收到的文本内容是ucs2编码格式，请问怎样转换成中文
按我的理解，UCS-2是字符集，具体的编码有UTF-8，UTF-16 (LE/BE)等。
如果你用Delphi 2009及以上版本，可以看看TEncoding类。
btw. 你说的转换成中文是啥意� ......
