熬通宵终于找出了问题点,但无法解决:封装基于TDBDateTimeEditEh的组件后,再往表单上放时就出现错误:Control '' has no parent window.

Question

请高手们救命啊,谢谢了!unit MyDate;interfaceuses
  SysUtils, Classes, Controls, StdCtrls, Messages,DBCtrlsEh;type
  TMyDate = class(TWinControl)
  private
    FDate:TDBDateTimeEditEh;
    { Private declarations }
  protected
    { Protected declarations }
  public
    constructor Create(AOwner:TComponent);override;
    destructor destroy;override;
    { Public declarations }
  published
    { Published declarations }
  end;procedure Register;implementation
//--------------------
procedure Register;
begin
  RegisterComponents('MyCls', [TMyDate]);
end;//----
constructor TMyDate.Create(AOwner:TComponent);
begin
  inherited;
  Height:=21;
  width:=121;
  FDate:=TDBDateTimeEditEh.create(nil);
  FDate.Font.Size:=9;  // <-------- 就是此句导致问题出现!!! end;//----
destructor TMyDate.destroy;
begin
  FDate.free;
  inherited;
end;end.

Answer 1

上面我写漏了一句,在导致错误的语句前面原本有一句 FDate.Parent.self ;
错误提示中的一对单引号也不知道是指的什么.

Answer 2

上面我写漏了一句,在导致错误的语句前面原本有一句 FDate.Parent.= self ;
错误提示中的一对单引号也不知道是指的什么.

Answer 3

上面我写漏了一句,在导致错误的语句前面原本有一句 FDate.Parent:= self ;
错误提示中的一对单引号也不知道是指的什么.

Answer 4

谢谢你的这一回复,我本来是要说四次的,可惜不让我发了,说"连续发帖的次数不能超过三次",所以就等着有人来间隔一下.
我要说的是,直接用TDBDateTimeEditEh来派生,而不象上面那样把它放进一个父TWinControl中,即:
TMyDate = class(TDBDateTimeEditEh)
也是可以成功封装的,但问题依旧.