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;
<
相关问答：
如何实现delphi 提交表单
我的思路是 webbrowser1 打开 谷歌
然后 鼠标 点击到 搜索里面
然后 输入 要搜索的关键字 然后 点击 搜索
我现在就是 如何 添入 要搜索的关键字 不� ......
我写了个小程序，上面添加了一个shockwaveflash控件，然后在movie里写入swf文件的路径，然后执行没有问题。
当我把这个程序转移到另一台电脑执行时， shockwaveflash 控件显示空白。也就是没有加载那个swf文件。 ......
嘿嘿，又来麻烦各位大牛了！我想了解我在代码的事件属性里面看不到有什么事件，还有在时间控件里面的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=' ......
