定义控件
type
TDtm= class(TWincontrol)
private
DateCalendar: TCalendar;——这是TWincontrol的子类
monthCmbBox: TComboBox;——这是Twidgetcontrol的子类
………………
constructor TDtm.Create(AOwner: TComponent);
begin
……
DateCalendar:=TCalendar.Create(self);
DateCalendar.Parent:=self;
……
monthCmbBox:=TComboBox.Create(self);
monthCmbBox.Parent:=self;
……
end;
……安装控件后会,再拖到一个form上会出现control''has no parent window
这是什么原因。我试过去掉monthCmbBox之后,没有了这个问题,一切正常。
所以认为原因大概是出在monthCmbBox上面
是不是monthCmbBox、DateCalendar、TDtm= class(TWincontrol)的父类的问题?
type
TDtm= class(TWincontrol)
private
DateCalendar: TCalendar;——这是TWincontrol的子类
monthCmbBox: TComboBox;——这是Twidgetcontrol的子类
………………
constructor TDtm.Create(AOwner: TComponent);
begin
……
DateCalendar:=TCalendar.Create(self);
DateCalendar.Parent:=self;
……
monthCmbBox:=TComboBox.Create(self);
monthCmbBox.Parent:=self;
……
end;
……安装控件后会,再拖到一个form上会出现control''has no parent window
这是什么原因。我试过去掉monthCmbBox之后,没有了这个问题,一切正常。
所以认为原因大概是出在monthCmbBox上面
是不是monthCmbBox、DateCalendar、TDtm= class(TWincontrol)的父类的问题?
Parent在哪里,你做了吗?
parent:=self;
这样就不会有这种鸟现像了..
你是不是用错的控件,用了clx的控件,应该是用vcl控件
按照你的办法,具体应该怎么操作呢?