A
autra
Unregistered / Unconfirmed
GUEST, unregistred user!
最近尝试写一个简单的控件,控件放在form上一切正常,但是放到panel上就会出错,打开dfm一看,发现并没有真正把控件放到panel上去。
我贴出部分代码,请高手指点迷津。
TMSelComb = class(TWinControl)
private
{ Private declarations }
BtnEdit:TRzBtnEdit ;
FListFm:TForm ; //the form to contain the List
CKList: TRzCheckList;
..
end
constructor TMSelComb.Create(AOwner:TComponent) ;
begin
inherited Create(AOwner);
self.parent := TWinControl(AOwner);
btnEdit := TRzButtonEdit.Create(Self) ;
btnEdit.parent := self ;
FListFm := TForm.Create(Self);
FListFm.Visible := false ;
CKList := TRzCheckList.Create(FListFm);
CKList.Parent := FListFm ;
....
end ;
就这个部分有问题,请高手帮帮忙啊。
我贴出部分代码,请高手指点迷津。
TMSelComb = class(TWinControl)
private
{ Private declarations }
BtnEdit:TRzBtnEdit ;
FListFm:TForm ; //the form to contain the List
CKList: TRzCheckList;
..
end
constructor TMSelComb.Create(AOwner:TComponent) ;
begin
inherited Create(AOwner);
self.parent := TWinControl(AOwner);
btnEdit := TRzButtonEdit.Create(Self) ;
btnEdit.parent := self ;
FListFm := TForm.Create(Self);
FListFm.Visible := false ;
CKList := TRzCheckList.Create(FListFm);
CKList.Parent := FListFm ;
....
end ;
就这个部分有问题,请高手帮帮忙啊。