抄“delphi5开发人员指南”的一段代码，可是编译不过去？ ( 积分: 20 )

代码如下：
type
TFengButton = class(TWinControl)
private
{ Private declarations }
FSpeedbutton:TSpeedbutton;
FEdit:Tedit;
function GetText: String;
procedure SetText(const Value: String);
function GetFont: TFont;
procedure SetFont(const Value: TFont);
protected
{ Protected declarations }
public
{ Public declarations }
constructor Create(AOwner:TComponent);override;
destructor Destroy;override;
published
{ Published declarations }
property Text:String read GetText write SetText;
property Font:TFont read GetFont write SetFont;
end;

constructor TFengButton.Create(AOwner: TComponent);
begin
inherited Create(AOwner);

FEdit:=TEdit.Create(AOwner);
FEdit.Parent:=self;
Fedit.Height :=21;

FSpeedbutton:=TSpeedbutton.Create(self);
FSpeedbutton.Left :=Fedit.Width ;
FSpeedbutton.Height :=19;
FSpeedbutton.Width :=19;
FSpeedbutton.Caption :='...';
FSpeedbutton.Parent := self; //这句报错，错误信息：[Error] FengButton.pas(55): Incompatible types: 'TWidgetControl' and 'TSpeedButton'

width:=FEdit.Width +FSpeedbutton.Width ;
height:=FEdit.Height ;
end;


我不知道TWidgetControl到底是个什麽东西，请明白人指点一下.

代码如下：
type
TFengButton = class(TWinControl)
private
{ Private declarations }
FSpeedbutton:TSpeedbutton;
FEdit:Tedit;
function GetText: String;
procedure SetText(const Value: String);
function GetFont: TFont;
procedure SetFont(const Value: TFont);
protected
{ Protected declarations }
public
{ Public declarations }
constructor Create(AOwner:TComponent);override;
destructor Destroy;override;
published
{ Published declarations }
property Text:String read GetText write SetText;
property Font:TFont read GetFont write SetFont;
end;

constructor TFengButton.Create(AOwner: TComponent);
begin
inherited Create(AOwner);

FEdit:=TEdit.Create(AOwner);
FEdit.Parent:=self;
Fedit.Height :=21;

FSpeedbutton:=TSpeedbutton.Create(self);
FSpeedbutton.Left :=Fedit.Width ;
FSpeedbutton.Height :=19;
FSpeedbutton.Width :=19;
FSpeedbutton.Caption :='...';
FSpeedbutton.Parent := self; //这句报错，错误信息：[Error] FengButton.pas(55): Incompatible types: 'TWidgetControl' and 'TSpeedButton'

width:=FEdit.Width +FSpeedbutton.Width ;
height:=FEdit.Height ;
end;


我不知道TWidgetControl到底是个什麽东西，请明白人指点一下.

TWidgetControl是CLX中的类
你不会是引用了Q####之类的单元吧？

对，是引用了qbutton.pas单元
但是如果不引用，会报错：
[Error] FengButton.pas(13): Undeclared identifier: 'TSpeedbutton'

引用Buttons.pas单元可以编译了。
谢谢someset.

接受答案了.